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To All New Customers... 


If you don’t know a thing about computers, relax — this book’s for you! It 
has you ‘‘program’”’ your computer using its own language — Extended 
Color BASIC. You'll start a little crazy by: 


° Composing music ° Playing games 
> Conducting light shows > Painting pictures 
If you're straight business, be patient. Having fun’s the fastest way to learn. 


So spend a few hours with your computer. Type whatever you want. Play 
with it. Be bold and strange. In other words . . . feel at ease! You have an 
amazing tool to command. 


And to All Upgrading Customers... 


Welcome back to the Color BASIC family! Let us introduce you to. . . slight 
drum roll, please ... Extended Color BASIC. It has al! the features of 
non-Extended Color BASIC plus much more. 


For example, with Extended Color BASIC you can: 


° Draw a circle “e Edit a line 
. Paint a house 2 Square a root 
> Cool off with a cube , Play a symphony 


. And even try a triangle! 


If you've read Getting Started with Color BASIC, you can skip half this - 
book: 


. Skip Section | except for Chapter 9. Chapter 9 shows how to use the 
Extended Color BASIC “‘Editor’’ — a great time-saver in typing prog- 
rams. 


. Read Section II. You’ll learn to use the most exciting features of 
Extended Color BASIC — high-resolution graphics and music. 


° Skip Section III. 


. Read Section IV. This shows how to use the rest of Extended Color 
BASIC’s expanded features. 


This Is How to Start... 


Connect your computer by referring to your Introducing Your Color Com- 
puter 2 or Introducing Your Deluxe Color Computer. 


Then power up your computer: 

1. Turn on your television set 

2. Select Channel 3 or 4 on the television set. 
3. Set the antenna switch to COMPUTER. 


4. Turn on the computer. The POWER button is on the left rear of your 
keyboard (when you're facing the front). 


This message appears on your screen: 


EXTENDED COLOR BASIC ver, 
© 1980 TANDY 
OK 


(v.r. is two numbers specifying which version and release you have.) 
If you don’t get this message: 

° Turn the computer on and off again. 

° Adjust the brightness and contrast on your television set. 

e Check all the connections. 


If you still don’t get this message, refer to “Troubleshooting and Mainte- 
nance” in Introducing Your Color Computer 2 or Introducing Your Deluxe 
Color Computer. 


Once you do get the above message, you're ready to start. 


How Do You Talk to a Computer? 


In this book, you'll learn how to talk to your computer. That's all program- 
ming is, by the way. Once you learn how to talk to your computer, you can 
tell it to do whatever you want. (Well, almost.) 


Your computer understands a language called Extended Color BASIC. This 
is an enhanced form of BASIC — Beginners All-Purpose Symbolic Instruc- 
tion Code. There are lots of computer languages. Extended Color BASIC 
just happens to be the one your computer understands. 


We'll introduce BASIC words in the order that they’re easiest to learn. 
When you get midway in the book, you may forget what a word means. If 
this happens, simply look it up in your Quick Reference Card. 
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SECTION I 


THE BASICS 


In this section you'll learn how to program. Before you start, though, put 
yourself in the right frame of mind... 


Don’t try to do everything the ‘‘correct’” way. Don’t try to understand 
everything. Above all, please don’t take-our word for anything! 


Do have fun with your Color Computer. Try out your own ideas. Prove us 
wrong (if you can). Type anything and everything that comes to mind. 


Ready? Turn the page and begin. 


CHAPTER 1 


MEET YOUR COMPUTER 


Have you connected and turned on your computer? Are you ready to give 
it a first workout? 


This chapter and the next introduce you to your computer—the way it 
thinks, some of its talents, and even a couple of its quirks. By the time you 
reach Chapter 3, you'll be ready to program . . . promise! 


Type whatever you want. Then press the (ENTER) key. Don’t worry about 
anything but the last line of type on your screen. It says: 


OK 
OK is the computer's ‘‘prompt.”’ It’s telling you, ‘OK, enough foolishness 
... as soon as you are ready .. .”’ (It patiently waits for your command.) 


You're the master—you tell the computer to do whatever you wish. 


Give the computer your first command. Type this exactly as it is below: 
PRINT "HI + I’M YOUR COLOR COMPUTER" 


When you reach the right side of your screen, keep typing. The last part of 
the message appears on the next line. 


Now check your line. Did you put the quotation marks where we have 
them? If you made a mistake, no problem. Simply press the @) key and the 
last character you typed disappears. Press it again and the next to the last 
disappears (... and so on and so on...). 


All letters you type should be 
BLACK with a GREEN 


BACKGROUND. If they're 
reversed (green with a black 
background), press the 
and (@) (zero) keys at 
the same time. 
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See the blinking light? 
Wherever you see it, you can 


Ready? This should be on your screen: 


OK 
PRINT "HI+ I’M YOUR COLOR COMPUT 
ER" 


Press the (ENTER) key and watch. Your screen should look like this: 


OK 

PRINT "HI» I’M YOUR COLOR COMPUT 
ER" 

HI+ I’M YOUR COLOR COMPUTER 

OK 


- 


Your computer just obeyed you by printing the message you have in 
quotes. Have it print another message. Type: 


PRINT "2" 


Press (ENTER). The computer again obeys you and prints your next 
message: 


2 

Try another one: 
PRINT “2+ 2" 

The computer obeys you by printing: 
2 tee 


You probably expect much more than an electronic mimic ... maybe 
some answers! Give your computer some numbers without the quotation 
marks. Type: 


PRINT 2+2 
Much better. This time the computer prints the answer: 
4 


The quotation marks obviously have a meaning. Experiment with them 
some more. Type each of these lines: 


PRINT 5+4 (ENTER 
PRINT "S+4" 
PRINT "5+4 EQUALS" 5+4 (ENTER 


PRINT 6/2 "IS G/2" (ENTER The computer thinks of 
PRINT "8/2" (ENTER) quotes as a journalist does. If 
PRINT 8/2 the number's in quotes, the 
computer must PRINT it ex- 

Any conclusions on what the quotes do? actly as it appears. If it’s not 


in quotes, the computer can 


interpret it by adding, sub- 
tracting, multiplying, or di- 
viding it. 


RULES ON STRINGS v NUMBERS 
The computer sees everything you type as strings or numbers. If it’s in 


quotes, it’s a string. The computer sees it exactly as it is. If it’s not in 
quotes, it’s a number. The computer figures it out like a numerical 
problem. 


A Color Calculator, No Less! 


Any arithmetic problem is a snap for the computer. Do some long division. 
Type: 


PRINT "3862 DIVIDED BY 13.2 IS" 3862/13.2 
Do a multiplication problem: 
PRINT 1589 * 23 


Notice that the computer’s multiplication sign is an asterisk (*), rather than 
the sign you use in math (X). The computer's so precise that it would get the 
X multiplication sign mixed up with the X alphabetical character. 


Try a few more problems: 


PRINT "15% 2=" 15#2 Notice how the computer 
PRINT 18 * 18 "IS THE SQUARE OF 18" handles parts in quotes v 
PRINT 33,.3/22,82 parts not in quotes. 


Now it’s your turn. Write two command lines that print these two problems 
as well as their answers: 


157 / 13.2 = 
95 * 43 = 


DO-IT-YOURSELF COMMAND LINES 


If you use the ‘‘correct’’ command lines, this is what the computer prints on 
your screen: 


157 /13,2 = 11,8939394 


Actually, there’s no ‘‘cor- 


rect’ command line. For 95 * 43 = 4885 
that matter, there is no cor- 


rect way of handling your Ready for the answers: 


computer. There are many " i 
ways of getting it to do what PRINT “157 7 bSeZ =" IS7T713s2 


you want. Relieved? ... PRINT "95 * 43 =" 95#43 
Good! 


It Has Its Rules... 


By now, the computer has probably printed some funny little messages on 
your screen. If it hasn’t, type this line, deliberately misspelling the word 
PRINT: 


PRIINT "HI" 


The computer prints: 


?SN ERROR 
?SN ERROR stands for ‘‘syntax”’ error. This is the computer's way of saying, 
“The command ‘PRIINT’ is not in my vocabulary . . .| have no earthly idea 


what you want me to do.” Any time you get the ?SN error, you probably 
made some kind of typographical mistake. 


The computer also gives you error messages when it does understand what 
you want it to do, but it feels you’re asking it to do something that is 
illogical or impossible. For instance, try this: 


PRINT 5/0 
The computer prints: 
7/0 ERROR 
which means, “‘Don’t ask me to divide by 0—that’s impossible!”’ 


If you get an error message you don’t understand, flip to the Appendix. 
We've listed all the error messages there and what probably caused them. 


It’s a Show-off Too 


So far, all you’ve seen your computer do is silently print on a green screen. 
But your color computer enjoys showing off. Type: 


CLS(3) (ENTER) 


Now your screen is a pretty shade of blue with a green stripe at the top. 
Your command told the computer to clear the screen and print color 
number 3—blue. 


If you don’t get the right col- But why the green stripe? Whenever the computer prints characters, it must 
ors, refer to the color test in use a green background, not a blue background. Type some more charac- 


Introducting Your Color ters. The computer uses a green background for them also. 
Computer 2. 


Colors other than green are for printing pictures. You'll learn how to do that 
later. 


Press to get the OK prompt. Then type: HUG: hen 

CLStzZ) saying MICROSOFT, or if 

you see a ?FC Error message, 

Now your screen is magenta (pinkish purple) with a green stripe at the top. __- you're using a number other 
Try some more colors. Use any number from 0 to 8. The Color Computer |_than 0 through 8. 

has nine colors. Each color has a numeric code. 


Type CLS without a number code: 
CLS 


If you don’t use a number code, the computer assumes you simply want a 
clear green screen. 


Computer Sound Off—One, Two... 


Type this: 
SOUND 1+ 10@ (ENTER 
If you don’t hear anything, turn up the volume and try again. 


What you’re hearing is 6 seconds of the lowest tone the computer can 
hum. How about the highest tone? Type: 


SOUND 255, 100 


OK, so it has a good ‘‘hum-range”’ . . . hope you’ re suitably impressed. Try 
some other numbers. Hope you like the computer's voice (it’s the only one 
it has). 


You want to know what the other number is for? (Or maybe you’ve already 
found out.) The second number tells the computer how long to hum the 
tone. You can use any number from 1 to 255. Try 1: 


SOUND 128+, 1 (ENTER 
The computer hums the tone for about 6/100ths of a second. Try 10: 


BUG: Again, if you get a ?FC 


SOUND 128, 1@ (ENTER Error message, you’re using 
a number other than 1 


The computer sounds the tone for 6/10ths of a second. Try variations of through 255. 
both numbers, but keep in the range of 1 to 255. 


Curious about the reversed 
colors? They’re for people 
with a Color Computer 2 
and a printer. The printer 
prints all “reversed” letters 
in lowercase. 


If you have a Deluxe Color 
Computer, your computer 
can understand commands 
in “reversed” or “‘lower- 
case’ type. See Introducing 
your Deluxe Color Com- 
puter to learn how to get in 
the upper/lower case mode. 
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Before You Continue... 


Press the (SHIFT) and (O) (zero) keys, holding both down at the same time. 
Now release them and type some letters. The letters you type should be 
green on a black background. If they're not, try again, pressing 
slightly before @). Be sure to hold down both keys at the same time and 
then release them. : 


Now, with the colors “‘reversed,’’ press and then type this simple 
command line: 


PRINT "HI" 


The computer gives you a ?SN ERROR. It doesn’t understand the 
command. 


Press the GHIFT) and () characters again and release them. Type some 
letters. They should be back to normal: black with the green background. 
Press and type the same command line again. This time it works. 


The computer can’t understand any commands you type with reversed 
colors. If you ever press (GHIFD@) by mistake and find you're typing with 
these reversed colors, press (SHIFT)(Q) again to get the colors back to 
normal. 


Learned in Chapter 1 


KEYBOARD 
CHARACTERS 


PRINT S 
SOUND 
CLS 


BASIC WORDS CONCEPTS 


string v numbers 
error messages 


A refresher like this is at the end of each chapter. It helps you make sure 
you didn’t miss anything. 


Notes 


CHAPTER 2 


YOUR COMPUTER NEVER 
FORGETS 
(...Uunless you turn it 


off...) 


One skill that makes your computer so powerful is its “memory.” Have it 
“remember” the number 13. Type: 


A = 13 (ENTER) 


Now “‘confuse’’ the computer by typing whatever you want. When you’re__| Did it get confused? or 
done, press (ENTER). See if the computer remembers what A means by | forget? 
typing: 

PRINT A 


Your computer remembers that A is 13 as long as you have iton. . . or until 
you do this. Type: 


If you already know BASIC, 
you may be accustomed to 


= ENTED using the word LET before 
AB 12 : these command lines. The 
If you ask it to PRINT A now, it prints 17.2. Color Computer doesn’t let 


you use the word LET. 
This is what happened in your computer’s memory: 


YOUR COMPUTER’S MEMORY 


You don’t have to use the letter A. You can use any letters from A to Z. In 
fact, you can use any two letters from A to Z. Type: 


B = 15 (ENTER 
C = 20 (ENTER) 
BC = 25 (ENTER) 


Have it print all the numbers you've asked it to remember. Type: 
PRINT A+ B+ C+ BC 


If you want the computer to remember a ‘‘string”’ of letters or numbers, use 
a letter with a dollar sign ($). Type: 


AS = "TRY TO" 
BS = "REMEMBER" 
C$ = "THIS: YOU" 


BCS = "GREAT COMPUTER" 


sign means a string. PRINT A%+ BS+ C#$+ BCS 


“Computer types’ have a name for all the letters you've used: ‘“‘vari- 
ables.” So far, you’ve used these variables: 


YOUR COMPUTER’S MEMORY 
NUMBERS CHARACTERS 


° A—17.2 A$—> "TRY TO” 
re} B—15 B$——> “REMEMBER” 
O Cc —>20 C$——> “THIS, YOU” 


BE:—*-25 BC$—> ‘‘GREAT COMPUTER” 


Spot-check the above variables to see if the computer remembers the right 
Try to set the computer to information. For instance, to see if BC still contains 25, type: 


remember a letter we = 

haven’t used yet. What hap- PRINT BC 

Be ne Think of variables as little boxes in which you can store information. One 
.set of boxes is for strings; the other set’s for numbers. Each box has a label. 


As we said before, the com- 

puter has its rules and might 

peta lie fussy with ou IF The Computer Is Fussy About Its Rules 
you don’t play by them. 

Do you think the computer accepts these lines? 


D = "6G" (ENTER 
Z= "THIS IS STRING DATA" 


TM stands for Type Mis- 
MOS eer ieateeyon The computer responds to both above lines with ?7TM ERROR. It’s telling 


didn’t go by the rules. 


you that you have to play by its rules. 
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The rules ‘ignored’ by the above lines are: 


RULES ON STRING DATA 
(1) Any data in quotes is STRING DATA. 


(2) You can assign STRING DATA only to variables WITH A $ SIGN. 


To make the above lines obey the computer’s rules, use a dollar sign with 
the D and Z. Type: 


Dé = "G6" (ENTER 
Z$ = "THIS IS STRING DATA" 


The computer now accepts these lines. 
How about this line? Do you think the computer accepts it? 
D$=6 


The above line ignored these rules: 


RULES ON NUMERIC DATA 
(1) Numbers not in quotes are NUMERIC DATA. 


(2) Numeric data can only be assigned to variables WITHOUT A $ 
SIGN. 


Type this, which the computer accepts: 


YOUR COMPUTER’S MEMORY 


NUMBERS = STRINGS 


D— 6 D$——> tery 
Le 12 Z$ —"THIS IS STRING DATA” 


Now do something interesting with what you’ve asked the computer to 
remember. Type: 


PRINT D * 2 (ENTER) 


The computer prints the product of D times 2. 


Try this line: 
PRINT 2/D 
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The computer prints the quotient of Z divided by D. 
Would this work? 


PRINT D& * 2 (ENTER) 


Did you try it? This makes the computer print the same ?TM ERROR. It 
cannot multiply string data. 


Cross out the commands below that the computer rejects: 


EXERCISE WITH VARIABLES 


22.9999999 
" i9 e Zz" 


"REMEMBER THIS FOR ME" 


Finished? These are the commands the computer accepts. 


F = 22,9999999 
DZ$ = "REMEMBER THIS FOR ME" 
Z=F+F 


RULES ON VARIABLES 


You may use any two characters from A to Z for a variable. The first 
character must be a letter from A to Z; however, the second may be 
either a numeral or a letter. If you want to assign it string data, put a 
dollar sign after it. Otherwise, it can hold only numeric data. 


Learned in Chapter 2 
CONCEPTS 


Variables 
String v Numeric Variables 


Now that you've learned how the computer thinks, it will be easy to write 
some programs. How about a break, though, before going to the next 
chapter? 


Notes 
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CHAPTER 3 


SEE HOW EASY IT IS? 
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Type: 
NEW 

This erases whatever may be in the computer’s ‘“memory.”” 

Now type this line. Be sure you type the number 10 first—that’s important. 
1@ PRINT "HI+ I’M YOUR COLOR COMPUTER" 


Did you press (ENTER)? Nothing happened, did it? Nothing you can see, that 
is. You just typed your first program. Type: 


RUN (ENTER 


The computer obediently runs your program. Type RUN again and again 
to your heart’s content. The computer runs your program any time you 
wish, as many times as you wish. 


Since this works so well, add another line to the program. Type: 
20 PRINT "WHAT IS YOUR NAME?" 

Now type: 
LIST 


Your computer obediently /ists your entire program. Your screen should 
look exactly like this: 


19 PRINT "HI+ I’M YOUR COLOR COM 
PUTER® 
20 PRINT "WHAT IS YOUR NAME?" 


What do you think will happen when you run this? Try it. Type: 
RUN (ENTER 
The computer prints: 


HI+ I’M YOUR COLOR COMPUTER 
WHAT IS YOUR NAME? 


Answer the computer’s question and then press (ENTER). . . . What? There’s 
the 2@SN Error again. 


When you simply type your name, the computer doesn’t understand what 
you mean. In fact, the computer can’t understand anything unless you talk 
to it in its own way. 


Use a word the computer understands: INPUT. Type this line: If you make a mistake after 
pressing (ENTER), simply 
30 INPUT AS type the line over again. 


This tells the computer to stop and wait for you to type something, which it 
labels as A$. Add one more line to the program: 


40 PRINT "HI+" AS 

Now list the program again to see if yours looks like mine. Type: 
LIst 

Your program should look like this: 


1@ PRINT "HI+ I’M YOUR COLOR COM 
PUTER" 

20 PRINT "WHAT IS YOUR NAME?" 

3@ INPUT A% 

4@ PRINT "HI+" At 


Can you guess what will happen when you run it? Try it: 
RUN 


That worked well, didn’t it? This is probably what happened when you ran 
the program (depending on what you typed as your name): 


HI + I’M YOUR COLOR COMPUTER 
WHAT IS YOUR NAME? 

? JANE 

HI» JANE 


RUN the program again using different names: 


HI,» I’M YOUR COLOR COMPUTER 
WHAT IS YOUR NAME? 

? HUGO 

HI» HUGO 


HI,» I’M YOUR COLOR COMPUTER 
WHAT IS YOUR NAME? 

? 772-36-8228 

HI» 722-36-8228 


HI» I’M YOUR COLOR COMPUTER 
WHAT IS YOUR NAME? 

? NONE OF YOUR BUSINESS 

HI» NONE OF YOUR BUSINESS 


HI + I’M YOUR COLOR COMPUTER 
WHAT IS YOUR NAME? 

? IGETIT!! 

HIy I GET DT?! 


(The computer doesn’t care what you call yourself.) 


Here’s what Line 30 did to your computer’s memory each time you ran the 
program (assuming you gave it the same names we did): 
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To delete a program line, 
simply type and 
the line number. For 


example: 
50 
erases line 50 from the 
program. 


We're leaving out the “HI/’ 
part this time. 
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YOUR COMPUTER’S MEMORY 


JANE 
HUGO 

77 2-36-8228 

NONE OF YOUR BUSINESS 
| GET IT!! 


There’s an easier way to run your program over and over without having to 
type the RUN command. Type this line: 


5@ GOTO 10 
SOOONO00000 O 

O fe) 

. (e) © 

fe) fe) 
OGOO0000000 


Now run it. The program runs over and over again without stopping. 
GOTO tells the computer to go back to Line 10: 


1@ PRINT "HI+ I’M YOUR COLOR COMPUTER" 
20 PRINT "WHAT IS YOUR NAME?" 

30 INPUT AS% 

40 PRINT "HI +" A% 

390 GOTO 10 


Your program now runs perpetually. Each time it gets to Line 50, it goes 
back to Line 10. We call this a ‘‘loop.’’ The only way you can stop this 
endless loop is by pressing the key. 


Spotlight Your Name 


Change Line 50 to give your name the attention it deserves. How do you 
change a program line? Simply type it again, using the same line number. 
Type: 


98 GOTO 40 


This is what the program looks like now: 


1@ PRINT "HI+ I’M YOUR COLOR COMPUTER" 
20 PRINT "WHAT IS YOUR NAME?" 

30 INPUT A% 

40 PRINT "HI+" AS 

5@ GOTO 40 


Type RUN and watch what this loop does. When you've seen enough, 
press the key. 


There’s a big change you can make simply by adding a comma or a 
semicolon. Try the comma first. Type Line 40 again, but with a comma at 
the end: 


40 PRINT AS; 
Run the program. The comma seems to print everything in two columns. 
Press and try the semicolon. Type: 


40 PRINT AS; 


and run... You probably won't be able to tell what the program’s doing 
until you press (BREAK). See how the semicolon crams everything together? 


RULES ON PRINT PUNCTUATION 


This is what punctuation at the end of a PRINT line makes the 
computer do: 
. Acomma makes the computer go to the next column. Use it to print 


in columns. 

. Asemicolon makes the computer stay where it is. Use it to “cram” 
what you print together. 

. No punctuation makes the computer go to the next line. Use it to 
print in rows. 


Color/Sound Demonstration 


Want to play with color and sound some more? First, erase memory. 
Remember how? 


Then enter this program: 


1@ PRINT "TO MAKE ME CHANGE MY TONE" 

20 PRINT "TYPE IN A NUMBER FROM 1 TO 255" 
30 INPUT T 

40 SOUND T; 5@ 

99 GOTO 10 


Run through the program to get a sample of the computer’s tones. 


BUG: If you get a ?FC Error when you run this program, you used a number 
other than 1 through 255. This error, like all errors, will make the computer 
stop running the program. 


What happens if you change Line 40 to: 
4@ SOUND 50; T 
HINT: Look back in Chapter 1 where we talk about SOUND. 


Know the answer? If you make the above change, the computer hums 
the same tone each time, but for a different length of time, depending 
on what number you use. 


DO-IT-YOURSELF PROGRAM 
Press first and then erase this program by typing NEW. Now see 


if you can write a program, similar to the one above, to make the 
computer show a certain color. Remember, there are 9 colors, 0 
through 8. 


HINT: Line 40 could be: 40 CLS(T). 


Remember, if you make a 
mistake on one of the lines, 


simply type the line over 
again. 


NEW . . . wish 
mine worked that easily! 


In this program we're using 
T as a variable. However, 
we Could use any letter. 


Notice that line 30 asks for 
T rather than T$. This is 
because we want numeric 
data rather than string data. 
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Don’t worry about IF/THEN 
right now. We devate a 
whole chapter to it later. 
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This is our program: 


1@ PRINT "TO MAKE ME CHANGE MY COLOR" 
20 PRINT "TYPE A NUMBER BETWEEN @ AND 8" 


38 INPUT T 
40 CLS(T) 
59% GOTO 10 


Add Polish to the Program 


Pressing the (BREAK) key is a sloppy way to stop the program from running. 
Why not have the computer politely ask if you’re ready to end? Change 
Line 50 in the above program to: 


9@ PRINT "DO YOU WANT TO SEE ANOTHER COLOR?" 


Then add these lines: 


60 INPUT R$ 
70 IF R$ = "YES" THEN 20 


Run the program. Type YES and the program keeps running. Type anything 
else and the program ends. 


This is what the program looks like now: 


1@ PRINT "TO MAKE ME CHANGE COLORS" 
z ep20@ PRINT "TYPE A NUMBER BETWEEN @ AND 8" 
38 INPUT T 
I 40 CLS(T) 
5@ PRINT "DO YOU WANT TO SEE ANOTHER COLOR" 


60 INPUT R$ 
70 IF R$ = "YES" THEN 20 


This is what the new lines do: 
. Line 50 prints a question. 
0 Line 60 tells the computer to stop and wait for an answer: R$. 


. Line 70 tells the computer to go back to Line 20 /F (and only if) 
your answer (R$) is “yes.” If not, the program ends, since it has 
no more lines. 


You've covered a lot of ground in this chapter. Hope we're just whetting 
your appetite for more. 


Don’t worry if you don’t yet understand it perfectly. Just enjoy using your 
computer. 


Learned in Chapter 3 
BASIC WORDS CONCEPT KEYBOARD 


Characters How to Change and Delete a BREAK) 
NEW Program Line 
INPUT 


GOTO 
RUN 
PRINT, 
PRINT; 
LIST 
IF/THEN 


Notes 
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CHAPTER 4 


COUNT THE BEAT 


De ook oftiiswalipecome In this chapter you'll experiment with computer sound effects. Before 
: doing this, you need to teach the computer to count. 


Type: 


Remember to type NEW 
(ENTER) before typing a new 
program. 


FORX = 17010 
PRINT "X =" X 


NEXT & 
PRINT "I HAVE FINISHED COUNTING" 


Run the program a few more times. Each time, replace Line 10 with one of 


these lines: 


FOR K = 170100 
FORX=5 T7015 
FOR X= -2T02 
FOR K = 20 TO 24 


Do you see what FOR and NEXT make the computer do? They make it 
count. Look at the last program we suggested you try: 


10 
(20 
30 


40 


FOR X = 28 TO 24 

PRINT "X=" X 

NEXT xX 

PRINT "I HAVE FINISHED COUNTING" 


Line 10 tells the computer the first number should be 20 and the last 
number should be 24. It uses X to label all these numbers. 


Line 30 tells the computer to keep going back to Line 10 for the next 
number—the NEXT X—until it reaches the last number (number 24). 
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Look at Line 20. Since Line 20 is between the FOR and NEXT lines, the 
computer must print the value of X each time it counts: 


K = 20 
K = 21 
K = 22 
K= 23 
X= 24 


Add another line between FOR and NEXT: 
15 PRINT"... COUNTING .«.-." 


and run the program. With each count, your computer runs any lines you 
choose to insert between FOR and NEXT. 


DO-IT-YOURSELF PROGRAM 4-1 


Write a program that makes the computer print your name 10 times. 


HINT: The program must count to 10. 


DO-IT-YOURSELF PROGRAM 4-2 


Write a program to print the multiplication tables for 9 (9*1 through 
9*10). 


HINT: PRINT 9*X is a perfectly legitimate program line. 


DO-IT-YOURSELF PROGRAM 4-3 


Write a program that prints the multiplication tables for 9*1 through 
925. 


HINT: By adding a comma in the PRINT line, you can get all the 
problems and results on your screen at once. 


Finished? These are our programs: 


Program 4-1 Program 4-2 
1@ FORX=i1TO19@ 19 FORX=1TO190 
20 PRINT "THOMAS" 20 PRINT "Q¥"X"="9#X 
30 NEXT X 3@ NEXT X 
Program 4-3 


19FORK=1T025 
20 PRINT "SQ#"X"="QHXs 
30 NEXT X 
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Counting by Twos 


Now make the computer count somewhat differently. Erase your program 
by typing NEW and then type the original program, using a new Line 10: 


1@ FORK=2TOi®STEP2 

26 PRINT "X=" XK 

3@ NEXT X 

40 PRINT "I HAYE FINISHED COUNTING" 


Run the program. Do you see what the STEP 2 does? It makes the computer 
count by 2s. Line 10 tells the computer that: 


. The first X is 2 
° The last X is 10 
sa AND?STEP 2: 52 


° All the Xs between 2 and 10 are two apart . . . that is 2, 4,6, 8, and 10. 
(STEP 2 tells the computer to add two to get each NEXT X.) 


To make the computer count by 3s, make all the Xs three apart. Try this for 
Line 10: 


1@ FORK =3T0190STEP 3 


Run the program. This prints on your screen: 


K=3 
K=6 
K=9 


It passes up the last X (number 10) because 9 + 3 = 12. Try a few more 
You may be wondering FOR ... STEP lines so you can see more clearly how this works: 

about the programs you ran 

at the first of this chapter i@ FORX=S TOS@STEPS 

without using STEP. If you 1@ FORX=1i10TOi1STEP-i 

omit STEP, the computer 

assumes you mean STEP 1. 10 FOR X 170 20 STEP 4 


Counting the Sounds 


Now that you've taught the computer to count, you can add some sound. 
Erase your old program and type this: 


g2 


19 FOR XK =1 70255 Don’t type the arrow, of 


20 PRINT "TONE" X course. It’s there to help you 
3@ SOUND X+; 1 understand. 
40 NEXT X 


This program makes the computer count from 1 to 255 (by 1s). Each time it 
counts a new number, it does what Lines 20 and 30 tell it to do: 


s Line 20—It prints X, the current count. 
Line 30—It sounds X’s tone. 
For example: 


. The first time the computer gets to FOR, in Line 10, it makes X equal 
to 1. 


Then it goes to Line 20 and prints 1, the value of X. 

: Then Line 30 has it sound tone #1. 

. Then it goes back to Line 10 and makes X equal to 2 

: Etc. 

What do you think the computer will do if you make this change to Line 10: 
1@ FOR X = 255 T0 1 STEP -1 

Did you try it? , 


PROGRAMMING EXERCISE 


Using STEP, change Line 10 so the computer will sound tones 
from: 


(1) The bottom of its range to the top, humming every tenth note. 


(2) The top of its range to the bottom, humming every tenth note. 
(3) The middle of its range to the top, humming every fifth note. 
10. 

10. 

10 


Ready for the answers? Tiythles 76 pause He B 
10 FORX=170255 STEP 10 gram while Its running, 
<, press the and @ keys 
10 FOR X= 255 TO 1 STEP -10 at the same time. Then press 
1d FOR XK = 128 TO 255 STEP 5 any key to continue. 


DO-IT-YOURSELF PROGRAM 4-4 
Now see if you can write a program that makes the computer hum: 


(1) from the bottom of its range to the top, and then 
(2) from the top of its range back to the bottom 


The answer is in the back of this book. 
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But Can It Sing? 


Yes. In Section II, you'll learn how to compose your favorite songs. 


Learned in Chapter 4 
BASIC WORDS KEYBOARD CHARACTER 


FOR 5. TO 2s. STEP GHIFD@) 
NEXT 


Notes 


CHAPTER 5 
Watch the Clock 


You're now ready to show your computer how to tell time. Type: 


10 FORZ=1TO460*2 
20 NEXT Z 
30 PRINT "I COUNTED TO 9290" 


Run the program. Be patient and wait a couple of seconds. Two seconds, to 
be precise. It takes your computer two seconds to count to 920. 


Lines 10 and 20 set a timer pause in your program. By making the 
computer count to 920, you keep the computer busy for two seconds. 


As you can see, this is groundwork for a stopwatch. Erase the program and 


type: 
1@ PRINT "HOW MANY SECONDS?" 
20 INPUTS 
38 FORZ=1 TO 460*S 
4@ NEXT Z 


99 PRINTS " SECONDS ARE UP!!!" 


Run it. Input the number of seconds you want timed on your stopwatch. 


DO-IT-YOURSELF PROGRAM 5-1 


It would help if the stopwatch could sound some kind of alarm. Add 
lines to the end of the program to give it an alarm. 
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Here’s the program we wrote: 
10 PRINT "HOW MANY SECONDS" 


20 INPUTS 
3@ FORZ=1TO460*5 
4@ NEXT 2 


5@ PRINT S " SECONDS ARE UP!!!" 
6@ FORT=1280T0180 

This is how computerized 70® SOUND T;1 

timers work. 80 NEXTT 
94 FORT = 15070140 STEP -i 


100 SOUND T; 1 
110 NEXT T 


120 GOTO 50a 


Notice the GOTO line at the end of the program. It causes the message to 
keep printing and the alarm to keep ringing until you press or 
SHIFT)(@). 


Counting Within the Time 


Before doing more with the clock, have the computer keep count within 
the time. This concept will become clear to you shortly. 


1@ FORX=1TO3 
20 PRINT "X=" X 
3@ FORY=1i1TO 
40 PRINT» "Y=" ¥ 
Notice the comma in Line 5@ NEXT Y 
40. Try it without the com- G2 NEXT xX 
ma. The comma makes “Y 
= ’ Y print on the next Run it. This should be on your screen: 
column. 
Keil 
Ye=i1 
: Y=2 
X=2 
Y= 
Y=2 
K=3 
Yel 
Y=2 
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Call ita count within a count ora loop within a loop—whatever you prefer. 
Programmers call this a ‘nested loop.” This is what the program does: 


I. It counts X from 1 to 3. Each time it counts X: 
A. It prints the value of X 
B. It counts Y from 1 to 2. Each time it counts Y: 
1. It prints the value of Y 


Whenever you put a loop inside another loop, you must close the inner 
loop before closing the outer loop: 


Right Wrong 
1i@ FORK =i1T03 1@ FORK=1TO3 
ie FORY=1i1TO2 2@ FORY=1i1TO2 
3@ NEXT Y 3@ NEXT X 
40 NEXT X 40 NEXT Y¥ 


Making a Clock 


With these tools, you can make the computer do much more. Type this: 


1@ FORS=9@T059 
20 PRINTS 
30 SOUND 150; 2 


40 FORT=17T0390 
Cos NEXT T 


6@ NEXTS 
7®@ PRINT "i MINUTE IS UP" 


Run the program. This is what it does: 

|. It counts the seconds from 0 to 59. Each time it counts one second: 
A. It prints the second. 
B. It sounds a tone. 
C. It pauses long enough for one second to pass. 


ll. | When it finishes counting all the seconds from 0 to 59, it prints a 
message that one minute is up. 


There’s a way to make this program look better. Add this line to clear the 
screen: 


15. GES 
Now run the program. This time the computer goes through these steps: 


l. It counts the seconds from 0 to 59 (Lines 10 and 60). Each time it 
counts one second: 


A. It clears the screen (Line 15). 

B. It prints the second (Line 20). 

C. It sounds a tone (Line 30). 

D. It pauses long enough for one second to pass (Lines 40 and 50). 


ll. | When it finishes counting all the seconds from 0 to 59, it prints a 
message that one minute has passed (Line 70). 


Using this as groundwork, it’s easy to make a full-fledged clock: 
1@ FORH=9%T023 
2@ FORM=98%TO59 
3@ FORS=98@T059 
4@ CLS 
39@ PRINTH":"M":"S 
6@ SOUND 150; 2 
7@ FORT=170375 
82 NEXT T 
92 NEXTS 
1@@ NEXTM 
11@ NEXTH 


Here’s an outline of what the computer does in this program: 


I. It counts the hours from 0 to 23 (Line 10). Each time it counts a new 
hour: 


A. Itcounts the minutes from 0 to 59 (Line 20). Each time it counts a 
new minute: 


1. It counts the seconds from 0 to 59 (Lines 30 and 90). Each 
time it counts a new second: 


a. It clears the screen (Line 40). 

b. It prints the hour, minute, and second (Line 50). 

c. It sounds a tone (Line 60). 

d. It pauses long enough for one second to pass (Lines 70 


By adding this line, 120 and 80). 

GOTO 10, the clock will run Be i ‘ . 

perpetually. 2. When it finishes counting all the 59 seconds, it goes back to 
Line 20 for the next minute (Line 100). 

Having a tough time with B. When it finishes counting all the 59 minutes, it goes back to Line 

this program? Skip it for 10 for the next hour (Line 110). 


now. It'll seem easy later. 
Il. | When it finishes counting all the hours (0-23), the program ends. 
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DO-IT-YOURSELF PROGRAM 5-2 


Between Lines 90 and 100 you can add some tones that will sound 
each minute. Write a program that does this. 


DO-IT-YOURSELF PROGRAM 5-3 


Write a program that makes your computer show each of its nine 
colors for 1 second each. 


The answers to both programs are in the back. 


Learned in Chapter 5 


BASIC WORD PROGRAMMING CONCEPT 
CLS Nested Loops 


Notes 
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- Don’t be confused by the 


40 


arrows or the spaces be- 
tween program lines. We 
just put them in to illustrate 
the flow of the program. 


CHAPTER 6 


DECISIONS, DECISIONS... 


Here’s an easy decision for the computer: 


° If you type “‘red” .. . then make the screen red 
2 OF 
° If you type “blue” . . . then make the screen blue 


Easy enough? Then have the computer do it. Type this program: 


1@ PRINT "DO YOU WANT THE SCREEN RED OR BLUE?" 
20 INPUT C% 


30 IF C% = "RED" THEN 100 
46 IF C$ = "BLUE" THEN 200 


190 CLS(4) bs 
1i1@ END 
200 CLS(3) 3 


Run the program a few times. Try both ‘‘red’”’ and ‘‘blue”’ as answers. 
This is what the program does: 

If you answer “red” ... then... 

1. Line 30 sends the computer to Line 100. 

2. Line 100 turns your screen red. 


3. Line 110 ends the program. (If the computer gets to Line 110, it never 
makes it to 200.) 


... On the other hand... 
If you answer “blue” ... then... 
1. Line 40 sends the computer to Line 200. 
2. Line 200 turns your screen blue. 


3. Since Line 200 is the last line in the program, the program ends there. 


What happens if you answer with something different from “red’’ or 


“blue’’? Run the program again. This time, answer “green.” 
This makes the screen red. Do you know why? 


HINT: If the condition is not true, the computer ignores the THEN part 
of the line and proceeds to the next program line. 


PROGRAMMING EXERCISE 


There's a way to get this program to reject any answer but ‘‘red’’ or 
“blue.”’ These are the two lines to add. You figure out where they go in 
the program: 


....PRINT “YOU MUST TYPE EITHER RED OR BLUE” 
....GOTO 20 


Insert the line numbers. 


HINT: The lines must come after the computer has had a chance to test 
your answer for “red’’ or “blue.” 


HINT: The lines must come before the computer makes your screen 
“red.” 


Answer: The lines need to come after Line 40 and before Line 100: 


9@ PRINT "YOU MUST TYPE EITHER RED OR BLUE" 
60 GOTO 2d a 


DO-IT-YOURSELF PROGRAM 6-1 


After the computer turns the screen red or blue, have it go back and ask 
you to type “red” or “blue” again. 


HINT: You need to change Line 110 and add Line 210. 


Here’s a diagram of how we wrote this program. 


1@ PRINT "DO YOU WANT THE SCREEN RED OR BLUE?" 


20 INPUT CS 
y 30 IF C$ = "RED" THEN 100 
Ni 40 IF C% = "BLUE" THEN 200 . 
4) 50 PRINT "YOU MUST TYPE EITHER RED OR BLUE" 
bs 6@ GOTO 28 


100 CLS(4) 
11@ GOTO 19 


200 CLS(3) 
210 GOTO 10 


Trace the path the computer takes through this program. Go from one line 
to the next; follow the arrows where indicated. Notice the difference 
between the arrows going from the IF/THEN and the GOTO lines. 
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RULES ON IF/THEN AND GOTO 
IF/THEN is conditional. The computer “‘branches’’ only if the condi- 


tion is true. 


GOTO is unconditional. The computer always branches. 


Although this chapter is short, you’ve learned an important programming 
concept. You'll have the computer make decisions all through this book. 


Learned in Chapter 6 
BASIC WORDS 


IF/THEN 
END 


Notes 


CHAPTER 7 


GAMES OF CHANCE 


Thanks to a BASIC word called RND, the computer can play almost any 
game of chance. 


And even if you don’t want to play computer games, you'll want to learn 
two words this chapter introduces: RND and PRINT @. You'll also find in 
this chapter some more uses of IF/THEN. 


Type this program: 
1@ PRINT RND(1@) 


Run it. The computer just picked a random number from 1 to 10. Run it 
some more times... 


It's as if the computer is drawing a number from 1 to 10 out of a hat. The 
number it picks is unpredictable. 


Type and run this next program. Press (GREAK) when you satisfy yourself 
that the numbers are random. 


1@ PRINT RND(1@) 5 
26 GOTO 10 


To get random numbers from 1 to 100, change Line 10 and run the 
program. 


19 PRINT RND(100)3 
How can you change the program to get random numbers from 1 to 2552 
The answer is: 

1@ PRINT RND(255) 3 


A Random Show 


Just for fun, have the computer compose a song made up of random tones. 
Type: 
( 1@ T=RND(255) 


20 SOUND T+» i 
30 GOTO 10 
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oneak preview: Enjoying 
graphics and sound? Go 
ahead and try out some 


programs in Section Il, 
“Sights and Sounds.” 


Run it. Great music, eh? Press (GREAK) when you've heard enough. 


DO-IT-YOURSELF PROGRAM 7-1 


Add some lines to make the computer show a random color (1-8) just 
before it sounds each random tone. 


Remember how to list part of 
a program? LIST 50-130 
lists the program’s middle 


part. 


Try this when listing a long 
program: At the start of the 
listing, press GHIFT) and @). 


This causes the listing to 
pause. Then press any key to 
continue. : 
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Here’s our program: 


1@ T=RND(255) 
14 C= RND(8) 


16 CLS(C) 
2@ SOUND T; i 
38 GOTO 19 


We have a few simple games in this chapter. Feel free to use your imagina- 
tion to add interest to them—or invent your own. 


Russian Roulette 


In this game, a gun has 10 chambers. The computer picks, at random, 
which of the 10 chambers has the fatal bullet. Type: 


1@ PRINT "CHOOSE YOUR CHAMBER(1-10)" 
26 INPUT X* 

30 IF X = RND(1@) THEN 100 

40 SOUND 200;1 

5@ PRINT "--CLICK--" 

60 GOTO 19 


100 PRINT "BANG--YOU’RE DEAD" 


First, in Line 20, the player inputs X (a number from 1 to 10). Then, the 
computer compares X with RND(10) (a random number from 1 to 10). 


Then it follows the “arrows”: 


* If X is equal to RND(10), the computer goes to Line 100, the ‘dead 
routine.” 


° If X is not equal to RND(10), the computer ‘‘clicks’’ and goes back to 
Line 10, where you get another chance... 


Make the dead routine ’in Line 100 better. Type: 


1@@ FOR T= 133 T01 STEP -5 

110 PRINT " BANG!H! HtHi" 

12@ SOUND T; 1 

130 NEXT T 

14%@ CLS 

150 PRINT @ 230+ "SORRY» YOU’RE DEAD" 
1608 SOUND 1; 59 

170 PRINT @ 390, "NEXT VICTIM» PLEASE" 


Run the program. Here’s what the routine does: 


Lines 100-130 make the computer sound descending tones and print 


Line 140 clears the screen. Since no color is given, the computer makes the 
screen green. 


Lines 150 and 170 use a new word—PRINT @—to position two messages 
on your screen: SORRY, YOU’RE DEAD and NEXT VICTIM, PLEASE. 


The grid below shows the 511 positions on your screen. Line 150 prints 
SORRY, YOU’RE DEAD at position 230 (224 + 6). Line 170 prints NEXT 
VICTIM, PLEASE at position 390 (384 + 6). 


The grid is in the Appendix, 
“PRINT @ Screen Loca- 
tions.” Use it to plan your 
programs’ screen formats. 


DO-IT-YOURSELF PROGRAM 7-2 


Change this program so that if the player does manage to stay alive for 
10 clicks, the computer pronounces the player the winner, printing 
this message on the screen: 


HINT: You can use the FOR/NEXT loop, so that the computer can keep. 
count of the number of clicks. 


Our answer is in the Appendix. 


Rolling the Dice 


This game has the computer roll two dice. To do this, it must come up with 
two random numbers. Type: 


45 


3@ PRINT @ 200+ xk 

60 PRINT @214;¥ 

PRINT @ 394; "YOU ROLLED A" R 

82 PRINT @ 454; "DO YOU WANT ANOTHER ROLL?" 
90 INPUT A$ 

100 IF A%= "YES" THEN 19 


At="“Yes* 
sw 
Ss 


Run the program. 
Line 10 clears the screen. 


Line 20 picks a random number from 1 to 6 for one die. Line 30 picks a 
random number for the other die. 


Line 40 adds the two dice to get the total roll. 
Lines 50-70 print the results of the roll. 


Line 90 lets you input whether you want another roll. If you answer “yes,” 
the program goes to Line 10 and runs again. Otherwise, since this is the last 
line in the program, the program ends. 


DO-IT-YOURSELF PROGRAM 7-3 


Since you know how to roll dice, it should be easy to write a ‘‘Craps” 
program. These are the rules of the game (in its simplest form): 


1. The player rolls two dice. If the first roll’s a 2 (‘‘snake eyes’’), a 3 
(“cock-eyes’’), or a 12 (“boxcars’’), the player loses and the game’s 
over. 


. If the first roll’s a 7 or 11 (a natural’), the player wins and the 
game’s over. 


. If the first roll’s any other number, it becomes the player's “point.” 
The player must keep rolling until either “making the point’ by 
getting the same number again to win, or rolling a 7, and losing. 


You already know more than enough to write this program. Do it. 
Make the computer print it in an attractive format on your screen and 
keep the player informed about what is happening. It may take you a 
while to finish, but give it your best. Good luck! 


Our answer's in the back. 


Learned in Chapter 7 
BASIC WORDS 


RND 
PRINT @ 


Notes 


CHAPTER 8 
READING 


Your computer is a natural at teaching. It’s patient, tireless, and never 
makes a mistake. Depending on the programmer (you, of course), it also 
can be imaginative, consoling, and enthusiastic. 


Using RND, have it teach you math. Type: 


1% CLS 

20 %* = RND(15) 

30 Y= RND(15) 

40 PRINT "WHAT IS" K "*#" Y¥" 3" 
45 INPUTA 


5@ IF A=X * Y THEN 9@ 


6@ PRINT "THE ANSWER IS" K#¥ 
7@ PRINT "BETTER LUCK NEXT TIME" 
80 GOTO 1900 


9@ PRINT "CORRECT!!!" 


0 PRINT "PRESS <ENTER? WHEN READY FOR 
ANOTHER" 
105 INPUT As 
110 GOTO 19 


The above program drills you on the multiplication tables, from 1 to 15, 
and checks your answers. 


Aa Bb Cc Da Ee Ff Gg Hh Ti Jj Kk LI Mm Nn Oo 


DO-IT-YOURSELF PROGRAM 8-1 
Make the program drill you on addition problems from 1 to 100. 


Are your programs getting 
long? If you have a cassette 
recorder, read your comput- 
er’s introduction manual to 
learn how to save your pro- 
grams on tape. If you have 


a Deluxe Color Computer, 
you can also save programs 
in memory. See your intro- 
. duction manual to learn 
how. 
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When you first turn on the 
computer, all numeric vari- 
ables equal 0. When you 


type NEW (ENTER, all 
numeric variables also 


equal 0. 
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Here are the lines we changed: 


20 K = RND(100) 

30 Y = RND(100) 

40 PRINT "WHAT IS" XK "+" ¥ 
45 INPUT A 

59@ IFA=X+Y THEN 99 


PRINT "THE ANSWER IS" K+ ¥ 


Make the program more interesting. Have it keep a running total of all the 
correct answers. Type: 


LD TST +i 

95 C=Ctri 

98 PRINT "THAT IS" C "CORRECT OUT OF" T 
"ANSWERS" 


T is a ““counter.”’ It counts how many questions you’re asked. When you 
first start the program, T equals zero. Then each time the computer gets to 
Line 15, it adds 1 to T. 


Cis also a counter. It counts your correct answers. Since C’s in Line 95, the 
computer doesn’t increase C unless your answer's correct. 


DO-IT-YOURSELF PROGRAM 8-2 
Make the program more fun. Have it do one or more of the following: 


. Call you by name. 
. Reward your correct answer with a sound and light show. 


. Print the problem and messages attractively on your screen. (Use 
PRINT @ for this.) 


. Keep a running total of the percentage of correct answers. 
. End the program if you get 10 answers in a row correct. 


Use your imagination. We have a program in back that does this all. 


First, Build Your Computer’s 
Vocabulary... 


To build your computer’s vocabulary (so that it can build yours!), type and 
run this program: 


1@ DATA APPLES» ORANGES: PEARS 
2@ FORK=17T03 

30 READ F$ 

40 NEXT X 


What happened. . . nothing? Nothing that you can see, that is. To see what 
the computer is doing, add this line and run the program: 


35 PRINT "F# = :" FS 
Line 30 tells the computer to: 
1. Look for a DATA line. 
2. READ the first item in the list—APPLES. 


3. Give APPLES an F$ label. 
4. “Cross out’” APPLES. 


The second time the computer gets to Line 30 it is told to do the same: 


1. Look for a DATA line. 


Give ORANGES the F$ label. 
“Cross out’’ ORANGES. 


ee Ww hr 


READ the first item—this time, it’s ORANGES. 


When you run the program, this happens in the computer's memory: 


FS 


Qhr 


YOUR COMPUTER’S MEMORY 


APPLES 
ORANGES 
PEARS 


What if you want the computer to read the same list again? It’s already 


“crossed out’’ all the data... Type: 
60 GOTO 19a 


Run the program. You get an error: ?0D ERROR IN 30. OD means “‘out of 


data.’ The computer's crossed out all the data. 


Type this line and run the program: 
9% RESTORE 


Now it’s as if the computer never crossed out any data. It reads the same list 


again and again. 


Remember how to make the 
computer pause while run- 


ning a program? Press 
(SHIFT) @) to pause and any 
key to get it to continue. 


You can put DATA lines wherever you want in the program. Run each of 


these programs. They all work the same. 


19 DATA APPLES 19 
20 DATA ORANGES 20 
@ FORK=1T0O3 30 
40 READ F% 40 
90 PRINT "F% = :" FS 38 
60 NEXT X 60 
7@ DATA PEARS 


DATA APPLES: ORANGES 
DATA PEARS 

FORK =1T03 

READ F% 

PRINT "F% = 5" FS 
NEXT x 


30 FORKX=1i1TO3 30 
40 READ F% 40 
90 PRINT "FS = :" FS% 30 
60 NEXT X 60 
7@ DATA APPLES 70 
80 DATA ORANGES 

90 DATA PEARS 


FOR K=1TO3 


READ F$ 
PRINT "F$ = 2" FS 
NEXT X 

DATA APPLES; ORANGES» 
PEARS 
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Now Have It Build Your Vocabulary 


Here are some words and definitions to learn: 
Words Definitions 


18 DATA TACITURN+ HABITUALLY UNTALKATIVE 
20 DATALOQUACIOUS,» VERY TALKATIVE 

308 DATA VOCIFEROUS: LOUD AND YVEHEMENT 

40 DATA TERSE+ CONCISE 

5@ DATA EFFUSIVE:s DEMONSTRATIVE OR GUSHY 


Now get the computer to select one of these words at random. Hmmm. . . 
there are ten items. Maybe this works: 


6@ N= RND(10) 
70 FORK=iTON 
(80 READ A$ 
90 NEXT XK 
100 PRINT “THE RANDOM WORD IS:" AS 


Run the program a few times. It doesn’t work quite right. The computer's 
just as likely to stop at a definition as at a word. 


What the computer really needs to do is pick a random word only from 
items 1, 3, 5, 7, or 9. Fortunately, BASIC has a word that helps with this. 


Type: 
65 IF INT(N/2) = N/2 THENN=N- 1 


Now run the program a few times again. This time, it should work. 


INT tells the computer to look at only the “‘whole part’’ of the number and 
ignore the decimal part. For instance, the computer sees INT(3.9) as 3. 


Assume N, the random number, is 10. The IF clause in Line 65 does this: 


INT(1@/2) = 16/2 
INT(S) =5 
5=5 


The above is true: 5 does equal 5. Since it’s true, the computer completes 
the THEN clause. N is adjusted to equal 9 (1% - 1). 


Now assume N, the random number, is 9. The IF clause in Line 65 does 
this: 


INT(9/2) = 9/2 
INT(4.5) = 4.5 
4=4,.5 


The above is not true: 4 does not equal 4.5. Since it’s not true, the computer 
doesn’t complete the THEN clause. N remains 9. 


Besides reading a random word, the computer also must read the word’s 
definition. Add these lines to the end of the program: 


11@ READ BS 
120 PRINT “THE DEFINITION IS :" BS 


Now run the program a few times. 


Have the computer print one random word and definition after the next. 
Add this to the start of the program: 


3 CLEAR 100 


This reserves plenty of “string space.’’ Add these lines to the end of the 
program: 


13@ RESTORE 
140 GOTO G@ 


This lets the computer pick a new random word and its definition from a 
“restored” group of data items. 


Here’s how the program now looks: 
> CLEAR 100 


1@ DATA TACITURN:+ HABITUALLY UNTALKATIVE 
20 DATALOQUACIOUS: YERY TALKATIVE 
3@ DATA VOCIFEROUS» LOUD AND VEHEMENT 
40 DATA TERSE>+ CONCISE 
5@ DATA EFFUSIVEs DEMONSTRATIVE OR GUSHY 
6@ N =RND(10) 
65 IF INT(N/2) = N/2 THENN=N- 1 
7@ FORK=i1TON 
(20 READ AS 
9@ NEXT X 
100 PRINT "A RANDOM WORD IS :" AS 
11@ READ BS 
120 PRINT “ITS DEFINITION IS :" BS 
13@ RESTORE 
140 GOTO 6®@ 


DO-IT-YOURSELF PROGRAM 8-3 
Want to complete this program? Program it so that the computer: 
1. Prints the definition only. 
. Asks you for the word. 


. Compares the word with the correct random word. 


. Tells you if your answer is correct. If your answer is incorrect, prints 
the correct word. 


If you like, add some more 
words and definitions by 
adding DATA lines. 


For variations on this pro- 
gram, you might try states 
and capitals, cities and 
countries, foreign words and 


meanings. 
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Here’s our program: 


3S CLEAR 500 
DATA TACITURN:+ HABITUALLY UNTALKATIVE 
DATA LOQUACIOUS:s VERY TALKATIVE 
DATA VOCIFEROUS» LOUD AND YVEHEMENT 
DATA TERSE + CONCISE 
DATA EFFUSIVE+ DEMONSTRATIVE OR GUSHY 
N = RND(19) 
IF INT(N/2) = N/2 THENN=N- 1 
FORX=1TON 
READ AS 

NEXT % 

READ BS 

PRINT "WHAT WORD MEANS :" BS 

RESTORE 

INPUT R& 

IF R$ = AS THEN 190 

PRINT "WRONG" 

PRINT "THE CORRECT WORD IS :" A% 

GOTO G@ 

PRINT "CORRECT" 

GOTO G@ 


Feel free to add frills such as 
a good-looking screen for- 
mat or sound. 


Learned in Chapter 8 
BASIC WORDS 
DATA 


READ 
RESTORE 


Notes 
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CHAPTER 9 
WRITING 


Up to now, you've probably been changing programs the long and boring 
way—by retyping them. If so, you'll be glad you’ ve arrived at this chapter. 
You'll learn a new, easy way to change programs—by “‘editing’”’ them. 


Don’t Throw Away That Line... 
Edit It! 
(EDIT) 


Pretend you make a mistake typing a program. Line 50 somehow ends up: 
5@ DABA EFFFUSIVE,s GIMPY MUSHY 


You can change this line the hard way, by retyping it— or the easy way, by 
editing it. To get into Line 50’s “edit mode,” type: 


/ 
EDIT 5@ (ENTER 
You see: 


5@ DABA EFFFUSIVE, GIMPY MUSHY 
50 


You're now in the edit mode. While in this mode, you can use any of the 
special “edit keys’’ to display or change Line 50. They’re all listed later in 
this chapter (Table 9.1). 


Start by pressing CL), the edit key for “‘list.’” The key displays the entire 
line again and then puts you back at the start. 


MOVE ON DOWN THE LINE (CURSOR MOVEMENT) 


Press a few times. This key moves you forward. To move 
backward, press G). Note that while in the edit mode merely back- 
spaces; it doesn’t delete characters. 


If you have a Deluxe Color 
Computer, EDIT will not 
work for you. You have a 
better way of editing pro- 
gram lines — the key. 
The @LD key is described in 
Introducing Your Deluxe 
Color Computer. 
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Once you enter the edit 
mode, you don’t have to 
press after subcom- 


mands such as change, in- 
sert, list, and so on. 
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Move to the start of Line 50 and press (5) (SPACEBAR). This moves you five 
spaces forward — all at once. Do the same with @). Press a number, such 
as (3), and and move that many spaces backward. 


Move to the start of Line 50 and press CS) (for ““search’’) and then CE) (the 
character for which you want to search). This moves you to the first E. 
Move back to the start and press (2) CS) (E). This moves you to the second 
E in Line 50. 


CHANGE THE LINE (CHANGE) 


Make your first change to Line 50. Change DABA to DATA: 
. Move to the “‘wrong’’ character — the B in DABA. 
: Press (€) for “change.” 
. Type the new character, in this case, T. 
To be sure the change is made, press and you see: 
9@ DATA EFFFUSIVE; GIMPY MUSHY 


Now make the next change: Change GIMPY to GUSHY. This time you'll 
change three characters at a time: 


. Move to the first wrong character — the | in GIMPY. 
‘ Press (3) (©) for ‘‘change three characters.” 

Type the three new characters — USH 
Line 50 is now: 

390 DATA EFFFUSIVE+ GUSHY MUSHY 


If this were all you needed to do to Line 50, you could press (ENTER) and get 
out of the edit mode. As you can see, though, you have much more work to 
do. 


YOU’RE OUT! (DELETE) 


You need to delete a character — one of the F’s in EFFFUSIVE: 
, Move to the offensive character — the third F in EFFFUSIVE. 
. Press (D) for ‘‘delete.”’ 


And it’s done. To confirm this, press again: 
5@ DATA EFFUSIVE»s GUSHY MUSHY 


You can delete more than one character at a time. For example, if you press 
(4) (), you'll delete four characters at a time. 


SQUEEZE IT ALL IN (INSERT) 
You now need to insert some characters: GUSHY should be DEMON- 
STRATIVE OR GUSHY. 


. Move to where you want to insert characters — the space before 
the G in Gushy. 


» Press CZ) for “insert mode?’ 
' Type your insert — DEMONSTRATIVE OR 


At this point, you're still in the insert mode. For example, if you press 
SPACEBAR), you'll insert a blank space; if you press CL), you'll insert an L. 
Therefore, you need to: 


. Press (SHIFT)(4 ) to get out of the insert mode. 
Now you can press (L) to list the line: 


9@ DATA EFFUSIVEs DEMONSTRATIVE OR GUSHY 
MUSHY 


HACKAMORE OR HACKALESS? (HACK) 


With “hack” you alter (halter?) a line by hacking the end of it and inserting 


new characters. Try hacking at Line 50: 
. Move to the first character you want hacked off — the M in MUSHY. 


: Press CH) for hack. This hacks off the rest of the line and puts you in 


the insert mode. 
° Type your insert — in this case, type CRUSTY. 
* Press GHIFT)C4) to get out of the insert mode. 
If you list the line now (by pressing (L)), you see: 


5@ DATA EFFUSIVE+ DEMONSTRATIVE OR GUSHY 
CRUSTY 


When we say “characters,” 
we mean “spaces” too. 


If you press (LJ to list the line 
while using insert, you'll in- 
sert the letter “L’’ into the 


program line instead of 
listing the line. 
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KILL THE... AH... MISTAKE (KILL) 


Kill is almost the opposite of hack. It ‘‘kills’’ everything up to the nth 
occurrence of a character. Suppose that, just for kicks, you want to kill the 
first half of Line 50 — everything up to the comma. Move to the start of Line 
50 and press these keys: 


coles 
If you list Line 50 now, you see: 
50 »sDEMONSTRATIVE OR GUSHY CRUSTY 


EXTENDED COLOR BASIC STRIKES AGAIN! (EXTEND) 
Perhaps you want to ‘‘extend” Line 50: 


° Press QO for extend. The cursor moves to the end of and you enter the 
insert mode. 


° Type your insert: AND MUSHY 
° Press (SHIFDC4) to get out of the insert mode. 
Line 50 is now: 
SO »sDEMONSTRATIVE OR GUSHY CRUSTY AND MUSHY 


Table 9.1/ Edit Keys 
(n is a number. If you omit n, BASIC uses 1.) 


Key Action 


Lists the line and moves to the start. 
nC@)characters Changes the next n characters 
to new characters. 
Inserts characters. 
n@) Deletes n characters. 
“Hacks’”’ the rest of the line and 
puts you in the insert mode. 
Lets you extend the line 
nCS)character Searches for the nth 
occurrence of character. 
ce Kills rest of line. 
nC®)character Kills (deletes) up to the nth 
occurrence of character. 
n(SPACEBAR) Moves n spaces forward. 
n&) Moves n spaces backward. 


Mass Delete 
(DELETE) 


Up to now, you've deleted lines the simple way, like this: 
3@ (ENTER 


This works fine for one or two lines, but what if you want to delete 50 or 60 
lines? You may find it easier to start over. 


Extended Color BASIC comes to the rescue again with an easy way to 
delete program lines — the DEL command. For instance, if you want to 
delete Lines 30-50, type: 


DEL 30-590 (ENTER 


Your Number’s Up! 
(RENUM) 


So now you can change everything about a program line except the line 
number itself. Well, despair no more, because you can even do that with 
RENUM. 


To see how RENUM works, type this small program: 


1@ PRINT "THIS IS THE FIRST LINE" 
2@ PRINT "THIS IS THE SECOND LINE" 
3@ PRINT "HERE’S ANOTHER LINE" 

4@ GOTO 10 


Now renumber it. Type: 
RENUM 1900 


List the program and you see the new line numbers beginning with 100. 
Line 100 is what we call the newline: 


100 PRINT "THIS IS THE FIRST LINE" 
11@ PRINT "THIS IS THE SECOND LINE" 
12@ PRINT "HERE’S ANOTHER LINE" 

130 GOTO 100 


Notice that even the GOTO line number reference is renumbered. 
Renumber the program again with a newline of 200. Type: 
RENUM 200,120 


Here, the newline is 200, but the renumbering starts with Line 120. Line 
120 is what we call the startline: 


1@@ PRINT "THIS IS THE FIRST LINE" 
110 PRINT "THIS IS THE SECOND LINE" 
200 PRINT "HERE’S ANOTHER LINE" 
210 GOTO 199 
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Renumber the program one more time giving it an increment of 50 be- 
tween each line: 


RENUM 300;++5@ (ENTER 


Here the newline is 300. Since you omitted the startline, BASIC renumbers 
the entire program. The increment between the lines is 50: 


300 PRINT "THIS IS THE FIRST LINE" 
35@ PRINT "THIS IS THE SECOND LINE" 
400 PRINT "HERE’S ANOTHER LINE" 
450 GOTO 300 


Here is the “‘syntax’’ of the RENUM command: 


RENUM newline, startline, increment 

Renumbers a program. 

newline is the first new renumbered line. If you omit newline, 
BASIC uses 10. 

startline is where the renumbering starts. If you omit 
startline, BASIC renumbers the entire program. 

increment is the increment between each renumbered 
line. If you omit increment, BASIC uses 10. 


Note: RENUM does not rearrange the order of lines. 


Try some other variations of this command. Type: 
RENUM +:+2@ 


This renumbers your entire program. The newline is 10, and the increment 
is 20: 

1@ PRINT "THIS IS THE FIRST LINE" 

3@ PRINT "THIS IS THE SECOND LINE" 

9@ PRINT "HERE’S ANOTHER LINE" 

7@ GOTO 1i¢@ 


Type RENUM 40,30, (ENTER). Here, the newline is 40; the startline is 30; 
and the increment is 10: 


1@ PRINT "THIS IS THE FIRST LINE" 
40 PRINT "THIS IS THE SECOND LINE" 
30 PRINT "HERE’S ANOTHER LINE" 

6% GOTO i@ 


Type RENUM 5,40 and you get a ?FC Error. This is because the 
result would move Line 40 ahead of Line 10. 


Learned in Chapter 9 
BASIC WORDS 


EDIT 
DEL 
RENUM 


Notes 
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CHAPTER 10 


ARITHMETIC 


Solving long math problems fast and accurately is a task your computer 
does with ease. Before typing long, difficult formulas, though, there’re 
some shortcuts you'll want to use. 


An easy way to handle complicated math formulas is with “subroutines.” 
Type and run this program: 


1@ PRINT "EXECUTING THE MAIN PROGRAM" 
20 GOSUB 500 

30 PRINT "NOW BACK IN THE MAIN PROGRAM" 
40 END 


9090 PRINT "EXECUTING THE SUBROUTINE" 
519 RETURN 


Ax (BY + C) —- D + E(G/W) - F 


GOSUB 500 tells the computer to go to the subroutine that starts at Line 
500. RETURN tells the computer to return to the BASIC word that im- 
mediately follows GOSUB. 


Delete Line 40 and see what happens when you run the program. 
If you did this, your screen shows: 


EXECUTING THE MAIN PROGRAM 
EXECUTING THE SUBROUTINE 
NOW BACK IN THE MAIN PROGRAM 
EXECUTING THE SUBROUTINE 
?RG ERROR IN 510 


RG means ‘RETURN without GOSUB.” Do you see why deleting END in 
Line 40 causes this error? 


At first, the program runs just as it did before. It goes to the subroutine in 
Line 500 and then returns to the PRINT line that immediately follows 
GOSUB. 


Then, since you deleted END, it goes to the next line—the subroutine in 
Line 500. This time, though, it doesn’t know where to return. This is 
because it’s merely “dropping” into the subroutine; it is not being sent to 
the subroutine by a GOSUB line. 


This subroutine raises a number to any power: 


1@ INPUT "TYPE A NUMBER"; N 
20 INPUT "TYPE THE POWER YOU WANT IT RAISED 
TO"s P 
@ GOSUB 2000 
40 PRINT : PRINT N “TO THE POWER OF" P"IS"E 


°@ GOTO 19 

2000 REM FORMULA FOR RAISING A NUMBER TOA 
POWER 

2010 E=1 


2020 FORX=i1TOP 
2030 E=E#N 

2040 NEXT X 

2050 IF P = @ THENE = i 
2060 RETURN 


Also introduced in this program are: 


The colon (:), in Line 40. You can combine program lines using the 
colon to separate them. Line 40 contains the two lines: PRINT and 
PRINT N “TO THE” P “POWER IS” E. 


REM, in Line 2000. REM means nothing to the computer. Put REM 
lines wherever you want in your program to help you remember 
what the program does; they make no difference in the way the 
program works. To see for yourself, add these lines and run the 
program: 


5S REM THIS IS A PECULIAR PROGRAM: 

17 REM WILL THIS LINE CHANGE THE PROGRAM? 

45 REM THE NEXT LINE KEEPS THE SUBPROGRAM 
SEPARATED 


DO-IT-YOURSELF PROGRAM 10-1 
Change the above program so that the computer prints a table of 


squares (a number to the power of 2) for numbers, say, from 2 to 10. 


The answer's in the back. 


Give the Computer a Little Help 


As math formulas get more complex, your computer needs help under- 
standing them. For example, what if you want the computer to solve this 
problem: 


Divide the sum of 13 + 3 by 8 
You may want the computer to arrive at the answer this way: 
13 + 3/8 = 16/8 = 2 


But, instead, the computer arrives at another answer. Type this command 
line and see: 


PRINT 13 + 3 / 8 (ENTER) 


See something different 
about INPUT? You can have 
the computer print a mes- 
sage before waiting for your 
input. 


PRINT by itself tells the com- 
puter to skip a line. 


61 


62 


An “operation” is a problem 
you want the computer to 
solve. Here the operations 
are addition, subtraction, 
multiplication, and division. 


The computer solves problems logically, using its own rules: 


RULES ON ARITHMETIC 


The computer solves arithmetic problems in this order: 


. First, it solves any multiplication and division operations. 
. Last, it solves addition and subtraction operations. 


. If there’s a tie (that is, more than one multiplication/division or 
addition/subtraction operation), it solves the operations from left to 
right. 


In the problem above, the computer follows its rules: 
. First, it does the division (3/8 = .375) 
“ Then, it does the addition (13 + .375 = 13.375) 


For the computer to solve the problem differently, you need to use paren- 
theses. Type this line: 


PRINT (13 + 3) / 8 (ENTER 


Whenever the computer sees an operation in parentheses, it solves that 
operation before solving any others. 


COMPUTER MATH EXERCISE 


What do you think the computer will print as the answers to each of 
these problems? 


PRINT 1@- (5-1) /2 


PRINT 1@0-S-1/2 

PRINT (10-S-1)/2 
PRINT (10-5) -1/2 
PRINT 19- (S-1/7 2) 


Finished? Type each of the command lines to check your answers. 
What if you want the computer to solve this problem? 

Divide 10 minus the difference of 5 minus 1 by 2 
You're actually asking the computer to do this: 

(10-(5-1))/2 


When the computer sees a problem with more than one set of parentheses, 
though, it solves the inside parentheses and then moves to the outside 
parentheses. In other words, it does this: 


(10 — (& = 1/2 


ccmenncsii Hoh 


(10 — 4)/2 


2—$—> 10-4=6 


RULES ON PARENTHESES 


. The computer solves operations enclosed in parentheses first, be- 
fore solving any others. 

. The computer solves the innermost parentheses first. It then works 
its way out. 


COMPUTER MATH EXERCISE 


Insert parentheses in the problem below so that the computer prints 28 
as the answer: 


PRINT 30-9-8-7-6 


Answer: 
PRINT 30 - (9 - (8 -(7-6G))) 


Saving Routines 


The program below uses two subroutines. It’s for those of you who save by 
putting the same amount of money in the bank each month: 


INPUT "YOUR MONTHLY DEPOSIT" D 

INPUT "BANK ‘S ANNUAL INTEREST RATE"$ I 
IT=1/12* .@1 

INPUT "NUMBER OF DEPOSITS"3 P 

GOSUB 1000 

PRINT "YOU WILL HAVE $" FY "IN" P "MONTHS" 
END 


REM COMPOUND MONTHLY INTEREST FORMULA 
N=1+I 

GOSUB 2800 

FYV=D*((E-1)/1) 

RETURN 

REM FORMULA FOR RAISING A NUMBER TOA 
POWER 

E=1 

FORX=1TOP 

E=E*#N 

NEXT X 

IF P= @THENE=1 

RETURN 
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Notice that one subroutine “‘calls’’ another. This is fine with the computer 
as long as: 


there’s a GOSUB to send the computer to each subroutine, and 
there’s a RETURN at the end of each subroutine. 


Turn to the Appendix, ‘‘Subroutines.’’ You'll find useful math subroutines 
you Can add to your programs. 


Learned in Chapter 10 
BASIC WORDS BASIC SYMBOLS BASIC CONCEPTS 


REM 


GOSUB () Order of operations 


RETURN 


Notes 


CHAPTER 11 


WORDS, WORDS, 
WORDS... 


A great skill of the computer is its gift with words. It can tirelessly twist and 
combine words any way you want. With this gift, you can get it to read, 
write, and even talk. 


Combining Words 


Type and run this program: 


10 PRINT "TYPE A SENTENCE" 

20 INPUT S$ 

3@ PRINT "YOUR SENTENCE HAS " LEN(S$) * 
CHARACTERS" 

40 INPUT "WANT TO TRY ANOTHER" S$ AS 

50 IFAS = "YES" THEN 18 


Impressed? LEN(S$) computes the length of string S$$—your sentence. The 
computer counts each character in the sentence, including spaces and 
_punctuation marks. 


Erase the program and run this, which composes a poem (of sorts): 


10 A%= "AROSE" 
20 BS="" 

30 C$ = "IS A ROSE" 

40 D$=B$+C$ 

50 E$ = "AND SO FORTH AND SO ON" 
60 FS = AS+D$+D$+ BS + ES 


70 PRINT FS 


Here the plus sign (+) combi ings. a "i 
: po Bn ae strings. For example, D$ (‘IS A ROSE”’) is ou Will nobaetiheinaae 
. ror if you have not started 


Bos 7 up your computer since 
There are two problems you may encounter when combining strings. Add you ran the program from 


the following line and run the program. It shows both problems: Chapter 8 with the CLEAR 
80 G$=FS+FS+F$+ FS + FS + FH + FS 


When the computer gets to Line 80, it prints the first problem with this line: 
70S ERROR IN 80 (‘out of string space’). 


500 line. 
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Not impressed? Later, we'll 


show practical uses of this 
unusual skill. 


On startup, the computer reserves only 200 characters of space for work- 
ing with strings. Line 80 asks it to work with 343 characters. To reserve 
room for this many characters and more (up to 500), add this line to the 
start of the program and run: 


3S CLEAR 300 


Now when the computer gets to Line 80, it has enough string space, but 
prints the second problem with this line: 2LS ERROR IN 80 (‘‘string too 
long’). 


A string can contain no more than 255 characters. When storing more than 
255 characters, you need to put these characters into several strings. 


Twisting Words 


Now that you can combine strings, try to take a string apart. Type and run 
this program: 


10 INPUT "TYPE A WORD" $ WS 

20 PRINT "THE FIRST LETTER IS : "LEFTS (W$51) 

30 PRINT "THE LAST 2 LETTERS ARE : " RIGHTS 
(WS +2) 

40@ GOTO 19a 


Here’s how the program works: 
In Line 10 you input string W$. Assume the string is MACHINE: 
e 
COMPUTER MEMORY © 


Ws$— MACHINE 


In Lines 20 and 30, the computer computes the first Jeft letter and the last 
two right letters of the string: 


MACHINE : 
LEFT (W$+1) RIGHTS (W$ +2) 


Run the program a few more times to see how it works. 
Now add this line to the program: 
5 CLEAR 500 


so that your computer will set aside plenty of space for working with 
strings. Run the program again. This time input a sentence rather than a 
word. 


PROGRAMMING EXERCISE 


How would you change Lines 20 and 30 so that the computer will give 
you the first 5 letters and the last 6 letters of your string? 


20 
30 


Answers: 


20 PRINT "THE FIRST FIVE LETTERS ARE :" LEFTS 
(W$ +5) 


30 PRINT "THE LAST SIX LETTERS ARE :" RIGHTS 
(WS +6) 


Erase your program and type this one: 
y Prog YP Remember how to erase a 


1@ CLEAR 50890 program? Type: 
20 INPUT "TYPE A SENTENCE"; S$% NEW (ENTER) 
30 PRINT "TYPE & NUMBER FROM i TO" LEN(S$) 

40 INPUT X 


5@ PRINT "THE MIDSTRING WILL BEGIN WITH 
CHARACTER " X 

60 PRINT "TYPE A NUMBER FROM i TO" LEN(S$) - XK 
+: 7 

7@ INPUT Y¥ 

8@ PRINT "THE MIDSTRING WILL BE" Y 
"CHARACTERS LONG" 

90 PRINT "THIS MIDSTRING I5 :" MID$(SSsK+¥) 

190 GOTO 20 


Run this program a few times to see if you can deduce how MID$ works. 
Here’s how the program works: 
In Line 20, assume you input HERE IS A STRING: 


YOUR COMPUTER’S MEMORY 
S$ —— HERE IS A STRING 


In Line 30, the computer first computes the length of $$, which is 16 
characters. It then asks you to choose a number from 1 to 16. Assume you 
choose 6. 


In Line 60, the computer asks you to choose another number from 1 to 12 
(16-6 + 1). Assume you choose 4. 


° 
YOUR COMPUTER ‘’S MEMORY & ° 


4G 


In Line 90, the computer gives you a “’mid-string” of S$ that starts at the 6th 
character and is four characters long: 


{2345 678 9 10 11 12 13 14 15 16 
HERE Is A S5 T R I N G 


+ 4-_, 


MID$(S$+6+4) 
For another example of MID, erase the program and run this: 


10 INPUT "TYPE A SENTENCE"; S$ 
2®@ INPUT "TYPE A WORD IN THE SENTENCE" 3 WS 


You can use this kind of 


3@ L=LEN(WS) program to sort through in- 
4®@ FORK =1TOLEN(S$) formation. For instance, by 
50 IF MID$(S$+X+L) = WS THEN 90 separating strings, you could 
60 NEXT X look through a mailing list 
70 PRINT "YOUR WORD ISN’T IN THE SENTENCE" for TEXAS addresses. 

8@ END 


9@ PRINT WS "--BEGINS AT CHARACTER NO." X 
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Here’s how the program works: 


In Line 20, assume you input the word IS for W$. In Line 30, the computer 
counts W$’s length: 2 characters. 


YOUR COMPUTER’S MEMORY 


S$ —— HERE ISA STRING 
We ——~ 1S 


L=——e2 


In Lines 40-90 (the FOR/NEXT loop), the computer counts each character 
in S$, starting with character 1 and ending with character LEN(S$), which 
is 16. 


Each time the computer counts a new character, it looks at a new mid- 
string. Each mid-string starts at character X and is L (2) characters long. 


For example, when X equals 1, the computer looks at this mid-string: 


il 
HO EGR E I 8 ia STRING 
<+_?— 


MID$(S$ +152) 


The fourth time through the loop, when X equals 4, the computer looks at 
this mid-string: 


4 
HERE BS A S TRING 
+ Ps 


MID$(S$ +42) 


When X equals 6, the computer finally finds IS, the mid-string for which it is 
searching. 


DO-IT-YOURSELF PROGRAM 11-1 
Start with a one-line program: 
10 A$ = “CHANGE A SENTENCE.” 
Add a line that inserts this to the start of A$: 
IT’S EASY TO 


Add another line that prints the new sentence: 
IT’S EASY TO CHANGE A SENTENCE 


This is our program: 


1@ At = "CHANGE A SENTENCE." 
20 BS = "IT’S EASY TO" 
30 C¥e=BS+" "+ AS 


40 PRINT C$ 


DO-IT-YOURSELF PROGRAM 11-2 
Add to the above program to make it: 


¢ Find the start of this mid-string: 
A SENTENCE 


* Delete the above mid-string to form this new string: 


IT’S EASY TO CHANGE 

¢ Add these words to the end of the new string: 
ANYTHING YOU WANT 

* Print the newly formed string: 
IT’S EASY TO CHANGE ANYTHING YOU WANT 


HINT: To form the string IT’S EASY TO CHANGE, you need to get the 
left portion of the string IT’S EASY TO CHANGE A SENTENCE. 


Answer: 
10 A% = "CHANGE A SENTENCE." 
20 BS = "IT’S EASY TO" 
30 CS=BS$+" "+ AS 
4@ PRINT C% This program is the basis of a 
50 Y = LEN ("A SENTENCE") “word processing” pro- 
60 FOR X= 1 TOLEN(C$) Bares popula ose 
70 IF MID$ (C$+X+Y) = "A SENTENCE" THEN 90 Se ae 
80 NEXT X 
85 END 


90 Ds = LEFT$ (C%+xK - 1) 
100 E$ =D + "ANYTHING YOU WANT" 
110 PRINT ES 


DO-IT-YOURSELF CHALLENGER PROGRAM 
Write a program that: 
¢ Asks you to input a sentence. 


* Asks you to input (1) a phrase within the sentence to delete and (2) a 
phrase to replace it. 


* Prints the changed sentence. 


This may take a while, but you have everything you need to write it. 
Our answer's in the back. 
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Learned in Chapter 11 
BASIC WORDS BASIC String OPERATOR 


LEN + 
LEFT$ 
RIGHT$ 
MID$ 


Notes 


CHAPTER 12 


A POP QUIZ 


By using a word named INKEY$, you can get the computer to constantly 
“watch,” “‘time,”’ or “‘test’’ what you’re typing. Type and run this program: 


10 AS = INKEY$S 

2 IF AS <>"" GOTO 50 

30 PRINT "YOU PRESSED NOTHING" 

40 GOTO 19 

3@ PRINT "THE KEY YOU PRESSED IS---" A% 


INKEY$ checks to see if you’re pressing a key. It does this in a split second. 
At least the first 20 times it checks, you’ve pressed nothing (‘’ ”’). 


Line 10 labels the key you press as A$. Then the computer makes a 
decision: 


If A$ equals nothing (‘’ ’’), it prints YOU PRESSED NOTHING and 
goes back to Line 10 to check the keyboard again. 


au 


If A$ equals something (anything but “’ ’’), the computer goes to Line 


50 and prints the key. 
Add this line and run the program: 
6@ GOTO 190 


No matter how fast you are, the computer is faster! Erase Line 30 to see 
what keys you’re pressing. 


Beat the Computer 


Type this program: 


i@ X= RND(4) 

20 Y = RND(4) 

30 PRINT "WHAT IS" K "+" ¥ 
40 T=90 

5@ As = INKEYS 

6®@ T=TtIi1 

7@ SOUND 12851 

8@ IF T= 15 THEN 200 

90 IFAS ="" THEN 50 

19 GOTO 19 


200 CLS(7) 
210 SOUND 180, 30 
220 PRINT "TOO LATE" 


Here’s how the program works: 


Lines 10, 20, and 30 have the computer print two random numbers and ask 
you for their sum. 


Line 40 sets T to O. T is a timer. 


Remember that < > means 


“not equal to.” 


“" is an “empty string’ 
(nothing). 
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Remember the problem of 
mixing strings with num- 
bers? Chapter 2 will refresh 
your memory. 
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Line 50 gives you your first chance to answer the question—in a split 
second. 


Line 60 adds 1 to T, the timer. T now equals 1. The next time the computer 
gets to line 60 it again adds 1 to the timer to make T equal 2. Each time the 
computer runs Line 60 it adds 1 to T. 


Line 70’s there just to make you nervous. 


Line 80 tells the computer you have 15 chances to answer. Once T equals 
15, time’s up. The computer insults you with Lines 200, 210, and 220. 


Line 90 says if you haven’t answered yet the computer should go back and 
give you another chance. 


The computer gets to Line 100 only if you do answer. Line 100 sends it 
back for another problem. 


How can you get the computer to give you three times as much time to 
answer each question? 


Answer: 


By changing this line: 
82 IF T = 45 THEN 208 


Checking Your Answers 


How can you get the computer to check to see if your answer is correct? 
Would this work? 


100 IF A$ =X +Y THEN 130 
110 PRINT "WRONG", X "+" ¥ "="X4y¥ 
120 GOTO 190 

130 PRINT "CORRECT" 

149 GOTO io 


If you run this program (and answer on time), you'll get this error message: 
?TM ERROR IN 100 


That's because you can’t make a string (A$) equal to a number (X + Y). You 
somehow must change A$ to a number. 


Change Line 100 by typing: 
190 IF YVAL(A#) =X + Y THEN 130 


VAL(A$) converts A$ into its numeric value. If A$ equals the string “’5,”’ for 
example, VAL(A$) equals the number 5. If VAL(A$) equals the string ““C,”’ 
VAL(A$) equals the number O. (“C’’ has no numeric value.) 


To make the program more challenging, change these lines: 


1@ xX =RND(49) +4 
2 Y = RND(49) + 4 
9@ BS = BS + AS 


120 IF VAL(BS) = X + Y THEN 130 
Then add these lines: 


45 Be="" 
95 IF LEN(B$) <> 2 THEN 50 


A Computer Typing Test 


Here’s a program that times how fast you type: 


i@ CLS 

20 INPUT "PRESS <ENTER? WHEN READY TO TYPE 
THIS PHRASE" 5 E$ 

3@ PRINT "NOW IS THE TIME FOR ALL GOOD MEN" 


40 T=1 
390 AS = INKEYS 
60 IFAS = "" THEN 100 


70 PRINT AS%5 

80 BS = BS + AS 

90 IF LEN(BS) = 32 THEN i280 
100 T=T+i1 

11@ GOTO 5a 


120 S=T/74 
130 M=S/60 
140 R=8/M 
15@ PRINT 


160 PRINT "YOU TYPED AT--"R"--WDS/MIN" 
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We coulg have made this 
calculation in one line by us- 
ing parentheses: 

120 R=8/((T/74)/ 


60)" 


How abouta variation of this 
program—a_ speed-reading 
test? 


Line 40 sets T, the timer, to 1. 


Line 50 gives you your first chance to type a key (A$). If you’re not fast 
enough, Line 60 sends the program to Line 100 and adds 1 to the timer. 


Line 70 prints the key you typed. 


Line 80 forms a string named B$. Each time you type a key (A$), the 
program adds this to B$. For example, if the first key you type is ‘“N,”’ then: 


AG = “n= 
and 
BS = BS + AS 
Bs = oe S Sh 
BS = a 
If the next key you type is ‘’O,” then: 
AG = it F fi 
and 
BS = BS + At 
BS = one + LB BL 
B$ = "NO" 
If the third key you type is “‘W,” then: 
At = ba 
and 
BS x "NO" + "hw" 
Bé = "NOW" 


When the length of B$ is 32 (the length of NOW IS THE TIME FOR ALL 
GOOD MEN), the program assumes you’ ve finished typing the phrase and 
goes to Line 120 to compute your words per minute. 


Lines 120, 130, and 140 compute your typing speed. They divide T by 74 
(to get the seconds), S by 60 (to get the minutes). They then divide the eight 
words by M to get the words per minute. 


Learned in Chapter 12 
BASIC WORDS 


INKEY$ 
VAL 


Notes 


CHAPTER 13 
MORE BASICS 


Before you're finished with the “basics,” you need to know a few more 
words. 


The first is STOP. Type and run this program: 


10 A=i1 
20 A=AHI 
30 STOP 
40 A=A*¥2 
58 STOP 
60 GOTO 26 


The computer starts running the program. When it gets to Line 30, it prints: 


BREAK IN 308 
OK 


You now can type a command line to see what's happening. For example, 
type: 
PRINT A 


The computer prints 2—A’s value when the program’s at Line 30. Now 
type: 
CONT (ENTER 


The computer continues the program. When it gets to Line 50, it prints: 
BREAK IN 50 


Type: 
PRINT A 
This time the computer prints 4—A’s value at Line 50. 


Type CONT again, and the computer breaks again at Line 30. If you have it 
again print A, it prints 5—the value of A at Line 30 the second time through 
the program. 


Inserting STOP lines in your program helps you figure out why it’s not 
working the way you expect. When you fix the program, take the STOP 
lines out. 


#2 
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To save memory, you can 
omit spaces in your program 
before and after punctuation 
marks, operators, and BASIC 


words. 


For Long Programs... 


Clear memory and type: 
PRINT MEM 


The computer prints how much storage space remains in the computer's 
memory. 


When you’re typing a long program, you will want to have the computer 
PRINT MEM from time to time to make sure you're not running out of 
memory. 


Help with Typing 


Type this program: 


1@ INPUT "TYPE i+ 2+ O0R3"5 N 
20 ONN GOSUB 100, 200; 300 
30 GOTO 19a 


100 PRINT "YOU TYPED i" 
110 RETURN 


200 PRINT "YOU TYPED 2" 
21®@ RETURN 


300 PRINT "YOU TYPED 3" 
310 RETURN 


Run it. 
ON ...GOSUB in Line 20 works the same as three lines: 


18 IF N= 1 THEN GOSUB 100 
20 IF N= 2 THEN GOSUB 200 
22 IF N= 3 THEN GOSUB 300 


ON ... GOSUB looks at the line number following ON—in this case N. 


: If N is 71, the computer goes to the subroutine starting at the first line 
number following GOSUB. 


° If N is 2, the computer goes to the subroutine starting at the second 
line number. : 


° If N is 3, the computer goes to the subroutine starting at the third line 
number. 


What if N is 4? Since there’s no fourth line number, the computer simply 
goes to the next line in the program. 


Here is a program that uses ON ... GOSUB: 


5S FOR P= 1 TO GOO: NEXT P 

1@ CLS: X = RND(10@0): Y = RND(100) 
20 PRINT "(1) ADDITION" 

36 PRINT "(2) SUBTRACTION" 

46 PRINT "(3) MULTIPLICATION" 

5@ PRINT "(4) DIVISION" 

6@ INPUT "WHICH EXERCISE(1-4)"5R 
7@ CLS 


ON R GOSUB 1900; 2000; 3000; 4000 
GOTO 5 


PRINT "WHAT IS" X "+" ¥ 

INPUT A 

IF A= Xk + ¥Y THEN PRINT "CORRECT." ELSE 
PRINT "WRONG" 

RETURN 


PRINT "WHAT IS" X "-"Y 
INPUT A 

IF A = X-Y THEN PRINT "CORRECT" ELSE 
PRINT "WRONG" 

RETURN 


PRINT "WHAT IS" X "#" Y 
INPUT A 

IF A = X*Y THEN PRINT "CORRECT" ELSE 
PRINT "WRONG" 

RETURN 


PRINT "WHAT IS" K "/" ¥ 

INPUT A 

IF A = X/¥ THEN PRINT "CORRECT" ELSE 
PRINT "WRONG" 

4030 RETURN 


Notice the word ELSE in Lines 1020, 2020, 3020, and 4020. You can use 
ELSE if you want the computer to do something special when the condition 
is not true. In Line 1020, if your answer—A—equals X + Y, then the 
computer prints CORRECT or else it prints WRONG. 


Youmay useON ... GOTO ina similar way asON . . . GOSUB. The only 
difference is that ON GOTO sends the computer to another line number 
rather than to a subroutine. 


Here’s part of a program using ON ... GOTO: 


i@ CLS 

20 PRINT @ 134+ "(1) CRAZY EIGHTS" 

30 PRINT @ 166» "(2) 500" 

4@ PRINT @ 198+ "(3) HEARTS" 

5@ PRINT @ 354+ "WHICH DO YOU WANT TO PLAY" 
6@ INPUTA 

65 CLS 

70 ONA GOTO 1000; 2000; 3000 


“44000 PRINT @ 230; "CRAZY EIGHTS GAME" 


1910 END 
"\SMleggo PRINT @ 236, "500 GAME" 
S| 2010 END 
3000 PRINT @ 235, "HEARTS GAME" 
3010 END 


When A does not equal X + 
Y, the condition set up in 
Line 1020 is not true. 
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Does the Job Say ““AND” or “OR’’? 


Anyone who speaks English knows the difference between ‘‘and”’ and 
“or’’—even your computer. For example, assume there’s a programming 
job opening. The job requires: 


A degree in programming 
AND 
Experience in programming 
ai 


Erase memory and type: 


1@ PRINT "DO YOU HAVE--" 

20 INPUT "A DEGREE IN PROGRAMMING": DS 

30 INPUT "EXPERIENCE IN PROGRAMMING": ES% 

40 IF D$= "YES" AND ES = "YES" THEN PRINT "YOU 
HAVE THE JOB" ELSE PRINT "SORRY + WE CAN‘T 
HIRE YOU" 

5@ GOTO 19a 


Run the program. You may answer the questions this way: 


DO YOU HAVE -- 

A DEGREE IN PROGRAMMING? NO 
EXPERIENCE IN PROGRAMMING? YES 
SORRY + WE CAN’T HIRE YOU 


Now, assume the requirements change so that ‘‘or’” becomes “‘and.”” The 
job now requires: 


A degree in programming 
OR 


Experience in programming 


To make this change in the program, type: 


46 IF D& = "YES" OR ES = "YES" THEN PRINT 
"YOU'VE GOT THE JOB" ELSE PRINT "SORRY >» WE 
CAN’T HIRE YOU" 


Run the program and see what a difference AND and OR makes: 


DO YOU HAVE-- 

A DEGREE IN PROGRAMMING? NO 
EXPERIENCE IN PROGRAMMING? YES 
YOU HAYE THE JOB 


More Arithmetic 
These words can save many program lines: 


SGN 
SGN tells you whether a number is positive, negative, or zero: 


1@ INPUT "TYPE A NUMBER": X 

20 IF SGN(X) = 1 THEN PRINT "POSITIVE" 
30 IF SGN(X) = @ THEN PRINT "ZERO" 

40 IF SGN(X) = -1 THEN PRINT "NEGATIVE" 
5@ GOTO 19 


Run the program, inputting these numbers: 
15 -30 -,.,@12 08 ,.22 


ABS 


ABS tells you the absolute value of a number (the magnitude of the number 
without respect to its sign). Type: 


10 INPUT "TYPE A NUMBER"35 N 
20 PRINT "ABSOLUTE VALUE IS" ABS(N) 
30 GOTO 19 


Run the program inputting the same numbers as the ones above. 
STR$ 


STR$ converts a number to a string. Example: 


1Q@ INPUT "TYPE A NUMBER" N 
20 AS = STRS(N) 
30 PRINT A$ +" IS NOW A STRING" 


Exponents 


Type and run this program to see how the computer deals with very large 
numbers: 


The computer prints very large or very small numbers in ‘’exponential 
notation.’’ “One billion” (1,000,000,000), for example, becomes 1E +09, 
which means ‘‘the number 1 followed by nine zeros.” 


lfan answer comes out “5E-06,’” you must shift the decimal point, which 
comes after the 5, six places to the left, inserting zeroes as necessary. 
Technically, this means 5*10-6, or 5 millionths (.000005). 


Exponential notation is simple once you get used to it. You’ II find it an easy 
way to keep track of very large or very small numbers without losing the 
decimal point. 


Notice the OV (overflow) 
error at the end. The com- 
puter can’t handle numbers 
larger than 1E +38 or smal- 
ler than -1E +38. (It rounds 
off numbers around 1£-38 
and -1E-38 to 0.) 


Or technically 1*109, which 
is 1 times 10 to the ninth 
power: 1*10+10+10* 
10*10*10*10*10+*10 


In our BASIC, that’s 5/10/10/ 
10/10/10/10 
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Congratulations, Programmer! 


You've now learned the ‘‘basics’’ and can no doubt write some decent 
programs. The next section will help you add excitement to your programs 
with graphics and music. 


Learned in Chapter 13 
BASIC WORDS BASIC SYMBOLS BASIC CONCEPT 


STOP SGN AND Exponential 
CONT ABS OR notation 
MEM STR$ 


Notes 


SECTION II 


SIGHTS AND SOUNDS 


Have you reached your fill of BASIC basics? In this section, you’II take a dra- 
matic leap and learn to: 


Draw a circle 

Paint a house 
Compose a song 
Cool off with a cube 
And much more! 


And you'll also be amazed at how quickly and easily you can do this! So 
turn the page and we'll get right to the point. 


CHAPTER 14 


LET’S GET TO THE POINT 


One of the most exciting features of Extended Color BASIC is its ability to 
display precise, varied, and easy-to-use graphics called “high-resolution 
graphics.”’ 


Just how easy-to-use are these graphics? Well, let’s start with the most basic 
(pun intended) graphic element—a dot (or point)—and build from there. 


Extended Color BASIC makes it simple to put a dot on the screen. Type the 
following program and see: 


> PMODE isl 

i@ PCLS 

2@ SCREEN 1 +i 

3@ PSET (10+20;8) 
49 GOTO 40 


Now run the program. The screen should be buff, and if you look carefully, 
you can see a small orange dot in the upper left corner. That dot was put 
there by the PSET (point set) in Line 30. 


PSET lets you set a dot anywhere on the screen. It has this format: 


PSET (h,v,c) sets a point on the current graphics screen 
his the horizontal position (0 to 255). 


v is the vertical position (0 to 191). 
cis the color (0 to 8). If you omit c, BASIC uses the current 
foreground color. 


Even though you can’t see it, the computer has divided your screen into a 
grid of nearly 50,000 dots—256 across and 192 down—so that you can 
put a dot precisely where you want it. Simply look up the dot’s position in 
the Graphics Screen Worksheet in the back of this manual. 


Look at Line 30 again and see how PSET specifies the dot’s position (10 
over and 20 down): 


— 30 PSET (10+20,8) 


A 10,600-mile journey 


starts with a single step, 
and even the Mona Lisa 


began with a single stroke 
on the canvas. (A Jackson 
Pollock might begin with a 
single splatter!) 


Don’t worry about any of 
the new words. PMODE 
and SCREEN, for instance, 
determine the degree of de- 
tail and the range of color. 
They are covered in later 
chapters. 


You'll see these “syntax 
blocks’’ throughout _ this 
section. They'll help you un- 
derstand the “parameters” 
you can use with graphic 
statements. 
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Very Important Note! The 


Color Computer can pro- 
duce 9 colors: black, green, 
yellow, blue, red, buff, 
cyan, magenta, and orange. 


Here’s the statement you would use to set an orange dot in the center of the 
screen: 


PSET (128,968) 


Now add a program line that sets an orange dot in the lower right corner 
(255 over and 191 down). 


Is this the line you used? 
35 PSET (255+191:8) 


If so, congratulations! You’ve made your point. Run your program and 
you'll see. 


Now list the program. It should look like this: 


The actual shade you get, 


though, depends on your 3 PMODE 1i+i 

T.V.—not the computer. We 1@ PCLS 

suggest you perform the ?@ SCREEN i+;i 

color adjustment test pro- 30 PSET (10+20;8) 
gram in your introduction 35 PSET (255 191 +8) 


manual before running these 


programs. 4@ GOTO 4@ 


You’re off to a great start . . . 


... But What About the Color? 


By now, you've probably figured out that you can change colors by 
changing c to a different number in the range 0 to 8. 


Within limits, this is true. However—and it’s a big however—you may not 
get the color you specified. There’s a good reason for this, which we'll 
cover later in the discussion of the different graphic ‘‘modes.”’ For now, 
don’t worry if you don’t always get the color you want. 


Here is the list of color codes: 


Black 
Green 
Yellow 
Blue 

Red 

Buff 
Cyan 
Magenta 
Orange 


The 8 gives the color (or- 
ange). Later, we'll discuss 


how to change the color. 
For now, simply use orange. 


ONDUBWNH OO 


If you want to try changing the dots’ colors, use buff (5), cyan (6), or 
magenta (7). Then change the color back to orange (8) before proceed- 
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ing. (These 4 colors are the only ones available with your current 


program.) 


Now You See It... Now You Don’t 


Any guesses how to turn off a dot? Here’s a hint: It’s easy and it has to 
do with color. 


You see, you don’t really turn off the dot, you simply change its color so 
that it blends into the background. You do this with a new statement: 
PRESET (point reset). PRESET ‘““knows’’ you want to use the background 
color, so you don’t need to give the color. 


PRESET (h,v) resets a point on the current graphics screen 


h is the horizontal position (0 to 255). 
v is the vertical position (0 to 191). 


DO-IT-YOURSELF PROGRAM 14-1 


Get to know the dot positions on your TV screen by using your 
Graphics Screen Worksheet. 


Select several points on the worksheet, identify them in terms of their 
(X,Y) coordinates, and display them on the screen using the program 
we used to get you started. Don’t change any program lines except 
those that contain PSET(h,v,c). 


DO-IT-YOURSELF PROGRAM 14-2 


Do you remember the RND (random) function from Section |? If 
not, review it; then write a short program that fills the screen with 
random dots of random colors. 


The Last Point 


Before you finish this chapter, we want to make one more point. You 
can use PPOINT to find out what color any dot on the screen is. 


PPOINT (h,v) tells what color a point is on the current graphics screen 


h is the point’s horizontal position (0 to 255). 
v is the point’s vertical position (0 to 191). 


This example shows how PPOINT can be handy to include in a program: 


PMODE 3+i 

PCLS 

SCREEN i+i 

x = RND(1@0) 

Y = RND(1®@) 

C = RND(8) 

PSET (X+¥sC) 

IF PPOINT (5+5)=8 THEN GOTO i105 
GOTO 38 

CLS 

PRINT @ 100, "POSITION (5:5) 

IS NOW ORANGE" 
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The compuier fills a 10X10 “‘square’”’ (in the upper left corner of the screen) 
with random colored dots. When the dot in Position (5,5) is filled with an 
orange dot (Code 8), the computer displays the message POSITION (5,5) IS 
NOW ORANGE. 


Learned in Chapter 14 
BASIC WORDS CONCEPTS 
PSET Setting points 


PRESET Resetting points 
Changing colors 
PPOINT Finding a point’s color 


Notes 


CHAPTER 15 


HOLD THAT LINE! 


So you can put a dot on the screen—even several dots. But what kind of 
starting point is that, you may wonder, when you’ re eager to create some 
“teal’’ graphics. 


To answer that question, think of some of your very first ““drawings’’ on 
paper. Perhaps they were detailed pictures of clowns and trained seals and 
other wonderful things. How did you draw such marvels? Probably by 
connecting a bunch of dots. 


And that is exactly how your computer ‘‘draws.’’ You tell it which dots to 
connect, and it draws a line. 


That’s Some Line You Have 


One way to tell the computer to draw a line between dots is to use the 
Extended Color BASIC statement LINE. To see LINE at work, modify the 
program that set the dots. (For the sake of convenience, call the program 
“Lines.”’) 


First change Line 30 as follows: 

3@ LINE (@+@) - (255,191) +PSET 
Then delete Line 35 by typing: 

35 
Your program should now read: 


3 PMODE 1+1 

1@ PCLS 

2@ SCREEN i +1 

3@ LINE (0+@)-(255+191) »PSET 
40 GOTO 40 


Now run the program. The screen should display an orange line that runs 
from the upper left to the lower right on a buff background. 


How about changing the direction of the line so that it runs from the lower 
left to the upper right? 
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Using the Graphics Screen 
Worksheet, plot the points 
used in creating the in- 
tersecting lines in the 
“Lines” program. 
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* You've probably already figured this one out, but—just in case—here’s the 


new Line 30: 


3@ LINE (@+191)-(255 +0) »PSET 


X Marks the Spot 


What about intersecting lines? 


Reinsert the original Line 30 that drew the first line. (First, renumber it 
as Line 25.) Then run the program. Does your screen display 2 orange 
lines intersecting in the center? 


In fact, you can put as many lines on the screen as you want—once 
you learn the format. Here it is: 


LINE (h1,v7)-(h2,v2),a,b draws a line or a box on the current 
graphics screen 


(h1,v1) is the line’s start point. 

(h2,v2) is the line’s end point. 

a is either PSET (set) or PRESET (reset). 

b is either B (box) or BF (box filled). This is optional. 


Note: You may omit the start point as discussed below. 


Just as in the old dot-to-dot days, you may often want to draw a line that 
begins at the last line’s end point. Whenever this is the case, you may omit 
the start point. The computer automatically starts at either the end point set 
by the latest LINE statement or—if you haven’t yet used LINE in the 
program—at (128,96). Here is an example: 


30 LINE (@:0)-(255+191) +PSET 
35 LINE -(191+0) +PSET 


Line 20 draws a line from (0,0) to (255,191). Line 30 then draws another 
line, this one from (255,191) to point (191,0). 


Regardless of whether or not you include the start point, you must precede 
the end point with a hyphen (-). 


How About Dropping a Line? 


We've discussed the line’s start and end points. Now let's turn to the next 
parameter in the LINE statement—PSET or’PRESET. 


Take another look at the program lines that created the intersecting lines: 


3@ LINE (@+@)-(255+191) »PSET 
35 LINE (@+191)-(255+0) »PSET 


From your experience with turning on and off dots in Chapter 14, do you 
have any idea what the PSET parameter is doing and what would happen if 
you change it to PRESET? Try it and see. Change the PSET in Line 25 to ai ewhere in the prowatn 
PRESET and run the program again: notin the LINE command, so 


30 LINE (0+@)-(255,+191) »PRESET well come back t0st later, 


For now, just concentrate on 
If you guessed that the orange line that ran from the upper left to the lower — 
right would ‘‘disappear,’’ you were right. 


Now replace PSET in Line 30 with PRESET. The screen went blank, right? 
The reason is the way PSET and PRESET work in a LINE statement: 


The color specification is 


. PSET sets the line in the pre-specified foreground color. 


: PRESET sets the line back to the pre-specified background 
color so that you can’t see it. 


Note: The PSET and PRESET parameters in a LINE statement are 
not the same as the PSET and PRESET statements discussed in 
Chapter 14. They do not specify a dot or a color code. They 
merely specify that the line be set to the foreground or the back- 
ground color. 


Before proceeding, change the PRESET parameters in Lines 25 and 30 
back to PSET. 


To B (a Box) or Not toB... 


We've almost made it through LINE, but a few items still need to be (to B?) 
covered. 


B stands for “box.” 


With Extended Color BASIC, you can make a box without having to write a 
separate program line for each side. All you have to do is specify two 
opposing corners of the box and add ,B to the statement. Then, when you 
run the program, your computer creates a box instead of a line. 


To illustrate this, call your ‘‘Lines’’ program back into service. 


3S PMODE i +1 

1@ PCLS 

20 SCREEN 1 +1 

25 LINE (@:0)-(255+191) »PSET 
3@ LINE (@+191)-(25550) »PSET 
4@ GOTO 40 


As is, the program creates 2 orange lines that intersect in the center of the 
screen. Delete Line 30 and add the suffix ,B to Line 25. Now see what 
happens when you run the program. 


25 LINE (0:0)-(255+191) +»PSET +B 


Did you box yourself in? 
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DO-IT-YOURSELF PROGRAM 15-1 
Write a program that creates a box with a pair of lines intersecting in 


the center. We'll tell you why these are the only available colors when 
we discuss PMODE and SCREEN in the next 2 chapters. 


Fill It Up 


We’re almost at the end of the LINE, so let’s try to finish. 


If you refer to the format of LINE, you can see you have the option of adding 
F to the optional suffix ,B. 


F lets you “fill” the box with the foreground color. Try it. Change Line 25 as 
follows: 


25 LINE (@+0)-(255,191) +PSET+BF 


How about that! You should have a big orange box (256 x 192) on a buff 
background. ; 


That’s Color with a Capital C, 
Capital O, Capital... 


In Chapter 14, we explained how to use the c parameter of the PSET 
command to change the color of a dot. But we’ve also been talking for 
some time about foreground and background colors. Now it’s time to 
explain them further. 


Naturally, if you’re using one color heavily, you don’t want to have to 
specify it each time you put something on the screen. With the COLOR 
feature, you don’t have to. 


Within certain limits, the graphics feature COLOR lets you set the 
foreground/background colors. (See ““PMODE” and “SCREEN” later in 
this book.) Here is its format: 


COLOR foreground,background sets the foreground and background 
color on the current graphics screen 


foreground is the code (0 to 8) for the foreground color. 
background is the code (0 to 8) for the background color. 


Note: As stated in Chapter 14, the only colors available with your 
current program are buff (5), cyan (6), magenta (7), and orange 
(8). 


When you don’t specify the foreground and background colors, your 
computer automatically chooses the highest-numbered available color 
code for the foreground color and the lowest-numbered available color 
code for the background color. That’s why the crossing lines in the ‘Lines’ 
program are orange (8) on a buff background (5). 


To see COLOR in action, call on ‘Lines’ again: 


3S MODE i+si 

i@ PCLS 

20 SCREEN i +1 

25 LINE (@+0)-(255+191) »PSET 


30 LINE (@+191)-(255 50) +PSET 


40 GOTO 40 
Insert Line 6 into your program: If you used your Color Com- 
puter to draw an airplane 
6 COLOR $7 and used COLOR to give it 


. : . the right color, would you 
Now run the program. What do you think of buff lines crossing on a |_have flying colors? 


magenta background? 


Do you want to see what the colors look like when reversed? If so, retype or 
edit the line like this: 


6 COLOR 7:5 


In the next chapter, you'll learn how to make even more colors available. 


DO-IT-YOURSELF PROGRAM 15-2 


Ready to try your own “Lines” program? Can you build a house? Start 
with Lines 5, 10, and 20 of the ‘Lines’ program and take it from there. 
Be sure to add: 


° A front door, of course. 
° At least one window. (Don’t forget to turn the lights on or off.) 
° Achimney. (You won’t need a chimneysweep, not yet anyway!) 


The overall design is up to you (Cape Cod, Ranch, or whatever), but 
we’ve included a sample house (good view, no pets) program in the 
back of the book. Don’t worry about doorknobs; we'll add those later. 


Be sure to save this program on cassette, since you'll be needing it 
later. (You'll find it much easier to draw the house if you plot its points 
on a Graphics Screen Worksheet.) 


DO-IT-YOURSELF PROGRAM 15-3 COLOR: Is ‘not. ah.caction 


This should be a real challenge for you. statement; it must precede 
: seeiise . an action statement (such as 
As you know, a straight line is the shortest distance between two PCLS or LINE) Mees the 


points. Well, put a few extra miles between our two points. Use LINE foreground and background 
to draw a crooked line. colors are actually changed. 


To get started, use Lines 5, 10, and 20 from the ‘‘Lines” program. 


Learned in Chapter 15 


BASIC WORDS CONCEPTS 


LINE Drawing a line 
Erasing a line 
Drawing a box 
Filling in a box 


Changing foreground and 
background colors 
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Notes 


CHAPTER 16 
THE SILVER SCREEN 


Are you ready to find out about another statement? If so, turn down the 
lights and butter the popcorn, because we’re about to raise the curtain on 
the silver screen. 


ERO) 
TSSoR PATE 


A Word About Video Memory 


Whenever you want to display an image on your TV, the computer 
stores the screen image in ‘video memory.’ The computer’s TV-circuitry 
then ‘‘reads’’ the screen image and displays it on your TV. 


The ‘‘normal” video memory is large enough for text (letters and num- 
bers) but not for graphics (circles, lines, boxes, and so on). Conse- 
quently, the computer has two video memories: one for text and one for 
graphics. 


Lighting the Silver Screen 


Take a look at our “‘Lines’’ program for a second. Concentrate on the 
SCREEN statement in Line 20: 


3. PMODE 1 +1 

1@ PCLS 

20 SCREEN i +i 

25 LINE (0+0)-(255+191) +PSET 
3@ LINE (0,191)-(255 +0) »PSET 
4@ GOTO 40 


SCREEN tells the computer to display a screen image on your TV. What 
kind of screen it displays depends on the instructions you give it: 


» First, you tell the computer whether to use the TV screen for text (such 
as letters or numbers) or graphics (such as lines and circles). 


» Second, you tell the computer what ‘‘color set’’ to use. 
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Any time your program out- 
puts text (PRINT, INPUT), 
the computer automatically 
performs a SCREEN 0,0 


command. In a ‘2-color 
mode,” described in the 
next chapter, this gives you a 
black and green screen. 


SCREEN type, color set displays the current graphics or text screen 


type is O (text screen) or 1 (graphics screen) 
color set is O or 1 


Note: If type or color set is any positive number greater than 1, your 
computer uses 1. 


In the “Lines” program, change Line 20 to: 
20 SCREEN 0:9 


Then run the program. Does your computer ““hang up’’? (Press to 
regain control.) 


Actually, the computer ran ‘‘Lines,”’ just as before. This time, though, it did 
not show you the graphics screen. You asked to see the text screen instead. 


Now change Line 20 to: 
28 SCREEN 1:0 


Notice that you have the graphics screen again, but this time the color set 
has been changed. 


At first glance, it appears that you have only 2 color choices—O and 1. 
Actually, though, you’re choosing from a much greater variety: You're 
switching color sets, not individual colors. 


Color Set 0 Green/Yellow/Blue/Red 
Color Set 1 Buff/Cyan/Magenta/Orange 


DO-IT-YOURSELF PROGRAM 16-1 
Do you understand SCREEN? If you do, write a program that switches 


from text screen to graphics screen. You might want to puta loop in the 
program so that it changes the color set after it loops through the 
program. This way you can see all the SCREEN features at work. 


Clearing the Silver Screen 


(PCLS) 
Your ‘‘Lines’’ program should look like this: 
3 PMODE i+i 
i@ PCLS 


2@ SCREEN 151 

235 LINE (@+0@)-(255,191) »PSET 
30 LINE (@+191)-(255+0) »PSET 
40 GOTO 4@ 


Look at Line 10. It contains the PCLS statement. This statement simply 
clears the graphics screen. (It serves the same function for the graphics 
screen as CLS does for the text screen.) 


Here is the syntax for PCLS: 


PCLS color clears the current graphics screen 


color is 0-8. If you omit the color, the computer clears the 
screen to the current background color. 


The “Lines’’ program doesn’t make use of PCLS’s color option. Therefore, 
the computer uses the current background color, buff. Retype Line 10: 


i@ PCLSG 


Run the program. Your screen now displays orange lines on a cyan 
background. 


Learned in Chapter 16 


BASIC WORDS CONCEPTS 


SCREEN Displaying the current screen 
PCLS Clearing the graphics screen 


Notes 
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CHAPTER 17 


MINDING YOUR PMODES 


What lets you produce exciting graphics is the massive size of graphics 
memory. To get a perspective on this, contrast graphics and text memory: 
Text memory has 512 memory locations; graphics memory has up to 
12,288! 


You can use the power of graphics memory in three ways: 
° To produce graphics with very high resolution (fine detail). 
° To produce graphics with many colors. 


° To produce fast-changing, “animated” graphics by retaining many 
graphics screens in memory at once. 


How much you can use of each of these features depends on how you 
“set’’ graphics memory. The more you use of one feature—such as 
retaining many screens in memory—the less you can use of the other 
features (high resolution and colors). 


PMODE—the unknown statement in the “Lines’”” program—is what sets 
the features you want to use. PMODE lets you set 5 ““modes,”” shown in 
Table 17-1. Each mode, of course, has its own trade-off of features. 


Table 17-1/ PMODE Settings 


Resolution Colors Screens 
PMODE 4 high 2 


PMODE 3 medium 4 
PMODE 2 medium 2 
PMODE 1 low 4 
PMODE 0 low 2 


“Lines’’ in Mode 4 


Bring back ‘‘Lines’’ and see what it looks like in a different mode. In case 
you've forgotten “Lines,” here it is: 


3S PMODE isi 

10 PCLS 

20 SCREEN 1 +1 

25 LINE (@+0@)-(255+191) +PSET 
30 LINE (@+191)-(255,50) +PSET 
4®@ GOTO 40 


Now change from Mode 1 to Mode 4. 
3 PMODE 451 
Run the program. You should spot two feature changes right away: 


. The color changes because you shifted from a 4-color mode 
to a 2-color mode. 


. The lines are much finer because they’re in high resolution. 


(The next chapter talks about the third feature; the one having to do 
with storing more than one graphics screen in memory.) 


Colors a la Mode 


A 2-color mode, just like a 4-color mode, has 2 color sets. You saw one of 
the 2-color sets—black and buff—when you ran “Lines” in Mode 4. To see 
“Lines’’ in the other 2-color set—black and green—make this change: 


20 SCREEN 1:0 


Table 17-2 shows what color sets you can use in 2-color and 4-color 
modes. 


Table 17-2/ Color Sets 
2-Color 4-Color 


SCREEN 1,0 Black/Green Green/Yellow/Blue/Red 
SCREEN 1,1 Black/Buff Buff/Cyan/Magenta/Orange 


“Lines’’—Through Thick and Thin 


Notice that when you ran “‘Lines’’ in high resolution (Mode 4), you didn’t 
have to change any dot positions. Color BASIC uses the same 256 x 192 
screen grid, no matter what the resolution is. 


For example, (128,96) is always the center of the screen, no matter what 
resolution you’re using, and (0,0) is always the upper-left corner of the 
screen. 


The size of each dot on the screen, though, is different in each resolution: 


, Low resolution uses four grid dots to set a screen dot. When the 
computer sets Dot (0,0), for example, it also sets (1,0), (1,1), and (0,1). 


‘ Medium resolution uses two grid dots to set a screen dot. When the 


Think of when you first 
started drawing. You prob- 
ably used wide crayons. 
When you got better, you 


began using thin crayons so 
that you could draw thin 
lines—lines with _ better 
“resolution.” 
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computer sets Dot (0,0), it also sets (1,0). 


5 High resolution uses only one grid dot to set a screen dot. When the 
computer sets Dot (0,0), that’s all it sets. 


Thus, a diagonal line in low resolution looks more like a stairstep than one 
drawn in high resolution: 


Low resolution High resolution 


And the number of different screen positions you can use in low resolution 
is only one-fourth what you can use in high resolution (see Table 17-3). 


Table 17-3/ Graphics Screen Resolution 


Screen Positions Size of 
Available Each Dot 


High resolution 256 x 192 


Medium resolution 128 x 192 


Low resolution 128 x 96 | 


Here is a program that shows a box cycle through each mode. Notice 
that with each mode the box’s lines go from thick to thin and its colors 
go from 2 colors to 4 colors. 


> FOR MODE = @T0 4 

i@ PMODE MODE +1 

20 PCLS 

3@ SCREEN i +i 

4@ LINE (75+50)-(125+100) »PSET »B 
o@ FOR Y = @ TO 3500: NEXT Y 

60 NEXT MODE 

7@ GOTO 5 


This is PMODE’s format. The next chapter shows how to use use the 
second parameter, start page. 
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PMODE mode;,start page sets the current graphics screen in graph- 
ics memory 


mode specifies the features you want to use in graphics 
memory. If you omit mode, the computer uses the last 
mode or (if none) Mode 2. 

start page specifies on which page in graphics memory to 
start a graphics screen. If you omit start page, the com- 
puter uses the last start page or (if none) Page 1. 


Therefore, if you omit PMODE, the computer uses PMODE 
251. 


Learned in Chapter 17 


BASIC WORDS CONCEPT 


PMODE Selecting a resolution mode 
Selecting color availability 


Notes 


Keep in mind that the 
graphics screen is always 
full of “dots.” The issues are 
simply how many, what 
size, and what color. 
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CHAPTER 18 


FINDING THE RIGHT PAGES 


In writing this book, we've ‘‘stored’’ chapters on pages. Some chapters 
require more pages; some less. 


In the same sense, Color BASIC stores graphics screens on 1,536-byte 
blocks of graphics memory called “‘pages.”” Some screens require more 
pages; some less. 


Table 18-1 shows how many pages it takes to draw a screen in each mode. 
As you Can see, a screen drawn in a higher mode (which offers higher res- 
olution or more colors) consumes more memory pages than a screen drawn 
in a lower mode. 


Table 18-1/ Pages Required for Graphics Screens 
Screen Pages Required 


Mode 4 Screen 4 pages 
Mode 3 Screen 4 pages 
Mode 2 Screen 2 pages 
Mode 1 Screen 2 pages 
Mode 0 Screen 1 page 


See what happens if you store the now famous (infamous) ‘‘Lines’’ screen 
on different pages. 


> PMODE isl 

1@ PCLS 

2@ SCREEN 1 +1 

25 LINE (@+0)-(255,5,191) +PSET 
3@ LINE (@:191)-(255+0) »PSET 
4@ GOTO 46 


Focus on PMODE. As you know, the first PMODE parameter tells the 
computer to start a Mode 1 screen. And, as Table 18-1 tells you, a Mode 1 
screen requires two pages. 


The second parameter tells the computer to start the screen on Page 1. 
Thus, the 2-page “‘Lines’”’ screen is on Pages 1 and 2. 


To put the 2-page “Lines’’ screen on Pages 3 and 4, type: 
3S PMODE 1:3 


Run the program. This shows the same screen, but the screen is in on 
entirely different pages. 


How about storing two screens—one on Pages 1 and 2, and another on 
Pages 3 and 4? Change Line 5, delete Line 20, and add Lines 27 and 28. 
What you end up with is this: 


3S PMODE 1 +i 


1@ PCLS stores screen on 
25 LINE (@+@)-(255+,191) +PSET Pages 1-2 

27 PMODE 1:3 

28 PCLS stores screen on 
3@ LINE (@+/191)-(255+0) »PSET Pages 3-4 

4@ GOTO 4a 


The first part of the program starts a Mode 1 screen on Pages 1-2. It “clears’’ 
this screen and puts a line on it. 


The next part of the program starts a Mode 1 screen on Pages 3-4. It 
clears this screen and puts a line on it. 


Run the program and you won't see either screen, because there’s no 
SCREEN statement. So add SCREEN: 


35 SCREEN 11 


Now run the progam and you see one screen—the one stored on Pages 
3-4. 


Whenever Color BASIC displays a screen, it uses your most recent PMODE 
instruction to tell it what the “current graphics screen”’ is. In this case, the 
most recent PMODE—PMODE 1,3—tells Color BASIC that the current 
graphics screen is a Mode 1 screen on Pages 3-4. 


Insert another PMODE line just before SCREEN, and Color BASIC displays 
a Mode 1 screen on Pages 1-2: 


32 PMODE i +i 


Just for kicks, have Color BASIC display a Mode 2 screen that starts on 
Page 2. Any guesses on what you'll see? Change Line 32 to PMODE 2,2 
and run the program. Since Mode 2 requires two pages, you see what's 
on Pages 2-3. And, since this is Mode 2, you see this screen in 2 colors 
with medium resolution. 


Flipping Screens 


As you know, animators make cartoons by drawing many still pictures and 
then “flipping’’ through them. 


So here’s the moment you've been waiting for! This program flips screens 
to show two lines in motion: 


> PMODE i +i 
1@ PCLS stores Page 1-2 screen 
25 LINE (@+@)-(255,+191) »PSET 


27 PMODE 1:33 

28 PELS te Page 3-4 screen 
3@ LINE (@:191)-(255 +0) »PSET 

32 PMODE 11 

34 SCREEN isi isola Page 1-2 

36 FOR I=i TO 200:NEXT I screen 


You may have noticed that 
all the graphics statements 
(LINE, PPOINT, PSET, PRE- 
SET, PCLS, SCREEN, and 
COLOR) produce graphics 
on the “current graphics 
screen.” The most recent 
PMODE statement is what 
sets the current graphics 
screen. 


Did you know that it takes 
more than 12,000 individual 


drawings to make just one 
7-minute cartoon? Wouldn't 
a computer be a help there! 
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If you ever have a con- 
flict between program 
memory requirements and 


video memory — require- 
ments, you'll get a ?OM 
ERROR (Out of Memory). 
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38 PMODE i:3 


40 SCREEN 1:3 displays Page 3-4 
42 FOR I=i TO 200:NEXT I screen 
44 GOTO 32 


Adding Pages 


You can use a maximum of 8 pages of graphics memory—Pages 1-8. 
However, when you first start up, Color BASIC gives you only half that 
amount—Pages 1-4. For example, make this change to ‘‘Lines’’: 


5 PMODE 1:4 


Run “Lines’’ and you get a ?FC Error. You're asking Color BASIC to use 
Pages 4-5, but Page 5 is not available! 


To remedy the problem, insert Line 4 and you now have all 8 pages. 
4 PCLEAR 8 


PCLEAR lets you reserve from 1 to 8 pages of memory. If you use 
PCLEAR, it needs to be your program’s first or second statement (after 
CLEAR, if you use CLEAR): 


PCLEAR pages reserves pages of graphics memory 


pages is the amount of graphics memory to reserve (0-8) 


On startup, the computer automatically reserves 4 pages. Use PCLEAR 
to reserve more or fewer pages. 


You may wonder why we don’t use PCLEAR 8 all the time. The reason: 
PCLEAR 8 decreases program memory. Sometimes you need more 
program memory; other times you need more graphics memory. PCLEAR 
sets the balance. 


Up and Down, Up and Down 


You probably think your computer is a little crazy, but now we'll prove that 
it’s a real yo-yo. In fact, you can call this program “Yo-Yo.” Enter and run 
it. 

1@ PCLEAR 8 

2@ FOR P=i TO 8 

3@ PMODE @+P 

4@ PCLS 

50 LINE (128+0)-(138+10+(P-1)*15) »PSET 

6@ CIRCLE (128+P#15):15 

7@ NEXT P 

80 FOR P=i TO 8:GOSUB 11@:NEXT P 

90 FOR P=7 TO i STEP -2:GOSUB 11@:NEXT P 

1ig@ GOTO 8@ 

11@ PMODE @+P 

120 SCREEN 1:0 

13@ FOR T=1 TO 1@:NEXT T 

140 RETURN 


With the exception of CIRCLE (see the next chapter), you've already 
learned all the features used by this program. 


PCOPY 


Using PCOPY (“‘page copy’’) you can copy one page of graphics memory 
to another. Here is the format for PCOPY: 


PCOPY pagel TO page 2 copies pagel to page2 


For example, if you want to copy Page 3 to Page 8, type: 
PCOPY 3 TO 8 


One advantage of PCOPY is it can shorten your programs by eliminating 
repetition. 


Keep in mind PCOPY copies one graphics’ memory page. Unless you’ re in 
Mode 0, this is not one screen. For example, in Mode 4, the above 
statement copies only one-fourth of a screen. 


DO-IT-YOURSELF PROGRAM 18-1 


The following program displays 4 squares that are on 4 different 
memory pages on the screen at the same time. Run it, and then shorten 
the program using PCOPY. 


4 PCLEAR 8 

5 PMODE 3:4 
PCLS 
SCREEN 1 +i 
LINE (110+20)-(120530) »PSET +B 
PMODE 3:°3 
SCREEN i +1 
LINE (110+20)-(120;3@) »PSET +B 
PMODE 3:2 
SCREEN 1i+1 
LINE (110+20)-(120,530) »PSET +B 
PMODE 3>si 
SCREEN isl : 
LINE (1181/280)-(120,53@) »PSET +B 
GOTO 38 
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DO-IT-YOURSELF PROGRAM 18-2 


Using LINE and start page, simulate a lightning storm. (Put ‘‘crazy 
lines’’ at random positions on different pages. Then switch back and 
forth between pages.) 


Learned in Chapter 18 


BASIC WORDS CONCEPTS 
PCLEAR Reserving pages for graphics 


PMODE Selecting a start page 
Flipping pages to simulate motion 


PCOPY Copying graphics from one page to another 


Notes 
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CHAPTER 19 


GOING IN CIRCLES 


Does all this talk about SCREEN, PMODE, and PCLEAR have you going in 
circles? If so, you haven’t seen anything yet! 


For example, you can create a full circle or ellipse, or a partial circle or 
ellipse using a single statement, CIRCLE. Here is the syntax of CIRCLE: 


CIRCLE (h,v),r,c,hw,start,end draws a circle on the current graphics 
screen 


h is the horizontal position of the centerpoint (0 to 255). 

v is the vertical position of the centerpoint (0 to 191). 

ris the radius in screen points. 

cis any available color (0-8). If you omit c, the computer uses 
the foreground color. 

hw is the height to width ratio (0 to 255). If you omit hw, the 
computer uses 1. 

start is the starting point (O to 1). If you omit start, the computer 
starts at O. 

end is the ending point (0 to 1). If you omit end, the computer 
uses 1. 


If the start point is equal to the end point or if you omit both the 
start and the end, the computer draws the complete 
ellipse. 


To draw a circle, you need only the centerpoint (h,v) and the radius (r), 
which is the distance from the center in points. 


First, count over on the h-axis, then down on the v-axis to locate the 
desired center. Then, once you specify that point, indicate the circle’s 
radius. The largest radius that fits on the screen is 95. If the radius is larger 
than 95, the circle “flattens’’ against the edges of the screen. 


Bring your “Lines’’ program back into service. 


3S PMODE 1+1 

1@ PCLS 

20 SCREEN 1 +1 

25 LINE (@+@)-(255 5191) »PSET 
30 LINE (@,191)-(255+50) »PSET 
49 GOTO 40 
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CIRCLE (128,96) 
+9 ; 


+ ar 4 
GOTO 40 


Delete Line 25 and change Line 30 as follows: 
3@ CIRCLE (128;96) +95 


Run the program. Your TV should display a somewhat scruffy, orange 
circle on a buff background. Are you wondering why the circle isn’t truly 
round? Look at Line 5 and you'll see; the computer is in Mode 1 (medium 
resolution). 


Change Mode 1 to Mode 4 (high resolution) as follows: 


3 PMODE 4+si 

19 PCLS 

20 SCREEN isi 

3@ CIRCLE (128;96);95 
4@ GOTO 46 


Run the program. Now that’s a circle! (It should be a buff circle on a black 
background.) 


DO-IT-YOURSELF PROGRAM 19-1 


Using the program above, generate a bull’s eye. You can do this one of 
two ways: 


° Add a separate program line for each concentric circle but use a 
common center (h,v coordinate). 


Use a FOR . . . NEXT loop with a STEP 10 to have the computer 
do the work for you. 


DO-IT-YOURSELF PROGRAM 19-2 


Do you still have the program for the house you built? How do you 
expect to get into the house without a doorknob? Use CIRCLE to puta 
doorknob on the front door. Your Graphics Screen Worksheet is 
helpful in locating the exact point you need. 


Note: If you use medium or low resolution, a circle small enough 
to serve as a doorknob does not have much detail. Run the pro- 
gram in Mode 4 for more detail. 


Coloring the Circle 


After you decide on the circle’s radius, choose its color. Using 2-color 
mode, you haven’t much choice, but using 4-color mode (Mode 1 or 3), 
you'll find the color option an exciting feature. 


Your program should read: 


3 PMODE i +1 

1@ PCLS 

20 SCREEN i+l 

3@ CIRCLE (128;96);95 
4@ GOTO 40 


First, make the circle a more manageable size: 
30 CIRCLE (128;96) +30 

Now, for a little variety, change the color to cyan: 
3@ CIRCLE (128;96) +30:°6 


It's as easy as that! In fact, you can change the circle’s color to any of the 
available colors. 


Putting on the Squeeze 


Did you ever take a Hula-Hoop, bicycle tire, or buggy wheel and squeeze 
it with both hands to form an ellipse? 


Similarly, you can change circle on your screen into an ellipse by using the 
' height/width ratio (hw) option. 


HEIGHT. WIDTH 


The width of the ellipse is equal to the radius. The height is determined by 
hw. lf hwis 1, the computer draws a circle. If hw is greater than 1, it draws 
an ellipse that is higher than it is wide. If hwis less than 1, it draws an ellipse 
that is wider than it is high. For example, this program draws a circle: 


3 PMODE 41 

1@ PCLS 

20 SCREEN isi 

30 CIRCLE (128;96) +3051 
40 GOTO 40 


If however, you change hw as shown here, the program draws a vertical 
ellipse: 


3@ CIRCLE (128:96) +30%+:3 
If you change hw as shown here, it draws a horizontal ellipse: 
3@ CIRCLE (128;+96) +30%++.25 


If hw equals O, then the “ellipse’’ becomes “‘infinitely’’ wider than it is 
high. In other words, it becomes a horizontal line. 


As hw increases past 1, the ‘‘ellipse’’ approaches a vertical line. 
Change Line 30 in the following ways and run the program: 

3@ CIRCLE (128;96) +305 :0 

30 CIRCLE (128;96) +>30++100 


Notice that your CIRCLE 
statement does not include 
the color code. Omitting the 
code tells the computer to 
use the foreground color. 
You must include the com- 


ma, though, to indicate to 
the computer that you are 
omitting the c and that the 
number specifies the hw 
ratio. 


You could say the circle is 
finally on the straight and 
narrow path. 


When you use 0, imagine 
you're looking ata coin from 


the edge, and you'll have a 
good idea of what we mean. 
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From Start to Finish... 


Suppose you want to draw only part of a ellipse (an arc). To do this, you 
must list the ellipse’s center point (h,v), its radius (r), and its height/width 
ratio (hw). If you wish, you may precede hw with the color (c). 


Note: To draw an arc, you must specify hw. For a normal arc, use 
hw 1. : 


From the above information, the computer knows the location, width, and 
height of the ellipse. Now you can tell it how much of the ellipse to draw. 


To do this, specify the start of the arc (0 to 1) and end (0 to 1) of the arc, 
following the chart below. Keep in mind that the computer always draws 


clockwise. 75 
50 0 
25 
Suppose, for example, you want to draw this arc: 
75 
25 


To do so, use this statement: 
30 CIRCLE (128;96) +>30+1+.25%.75 


Now change the statement to draw this arc: 
75 


25 
Is this your new Line 30? 


30 CIRCLE (128/96) >30+1+.75%.25 


DO-IT-YOURSELF PROGRAM 19-3 


Has night fallen on the house you built? If so, you might want to shed 
some light on the subject by putting a crescent moon in the corner. 
This requires two intersecting arcs and some trial and error on your 
part. 


DO-IT-YOURSELF PROGRAM 19-4 


Maybe it’s cold, as well as dark, around your house. If so, build a fire in 
the fireplace and show smoke coming out the chimney. (Use CIRCLE 
to generate a spiral that simulates the smoke.) 


Learned in Chapter 19 


BASIC WORDS CONCEPTS 


CIRCLE Drawing a circle or an ellipse 
Coloring a circle or an ellipse 
Drawing an arc 


Notes 


111 


CHAPTER 20 


THE BIG BRUSH-OFF 


You might think we've forgotten this is a Color Computer. So far, it’s been a 
little dab here and a splotch or two there. You'll never create a masterpiece 
that way! Well, it’s time to loosen up a little and paint the town, if not red, 
then at least a bright orange. 


The Extended Color BASIC graphics function PAINT lets you ‘paint’ any 
shape with any available color. 


Here is the syntax for PAINT: 


PAINT (h,v),c,b paints the current graphics screen 


h is the horizontal position (0 to 255) of the point at which 
painting is to begin. 


v is the vertical position (0 to 191). 
c is the color (0 to 8). 
b is the border color at which painting is to stop (0 to 8). 


If the computer reaches a border other than that of the specified color, it 
paints over that border. 


Change the “‘Lines’’ program as follows: 


3S PMODE 3,1 

1@ PCLS 

20 SCREEN 1+1 

30 LINE (@:+0)-(255+191) »PSET 
40 LINE (@+191)-(255+0) +PSET 
5@ CIRCLE (128,96) +90 

6M PAINT (1354125) +858 

70 GOTO 70 


Before you run the program, can you predict the results? Lines 30 and 40 
make the intersecting lines. Line 50 generates a circle the center of which is 
at the point where the two lines intersect. That pe should be easy, but 
what about PAINT in Line 60? 


If you guessed the computer goes to screen position (135,125) and paints 
with orange until the paint reaches an orange border, you're right! 


Delete Line 30 and then run the program. Now that you redefine the 
borders, the computer paints half the circle. 


DO-IT-YOURSELF PROGRAM 20-1 


Can you paint the entire circle? You can do this two ways. One 
involves adding a line; the other involves deleting a line. 


By the way, did you notice the computer’s mode and color set? Mode 3 isa 
4-color mode, and Color Set 1 gives you buff, cyan, magenta, and orange. 


Stay in Mode 3, but change the color set (SCREEN 1,0) and run the 
program. Without changing any other lines, you should get a red circle 
(border) on a green background. 


To avoid confusion about color, change the PAINT color to fit the color set: 
6@ PAINT (1355125) 12:4 


Now when you run the program, the semicircle should be painted yellow 
(Code 2) until the computer encounters the red (Code 4) border. 


DO-IT-YOURSELF PROGRAM 20-2 


Do you still have your house? It probably looks a little plain, maybe 
even shabby. Why don’t you spruce it up with some paint? 


DO-IT-YOURSELF PROGRAM 20-3 


Add a garage to your house, then use PAINT to raise and lower the 
garage door. Since the painting action always goes up first, this takes a 
little refining on your part. Add a delay before and after the opening. 
(With CIRCLE, add the sun.) By the way, did you notice the computer's 
mode and color set? Mode 3 is a 4-color mode, and Color Set 1 gives 
you buff, cyan, magenta, and orange. 


Learned in Chapter 20 


BASIC WORDS CONCEPTS 
PAINT Painting any figure 


Remember, you can paint 
using only those colors that 
are available in your mode 
and color set. 


But you didn’t specify red 
lines and red paint! Do 
you have any idea what 


happened? 


When the computer is in a 
4-color mode and you 
specify a color it can’t sup- 
ply, the computer subtracts 
4 from Codes 5 through 8. 
(It interprets O as 3.) 


I3 
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Notes 


CHAPTER 21 


DRAW THE LINE 
SOMEWHERE 


You already know how to create lines, ellipses, and boxes. Now how 
would you like to learn a shortcut for doing some of those things? The 
shortcut is DRAW, which lets you draw a line (or series of lines) by 
specifying direction, angle, and color—all in the same program line! Here 
is the syntax of DRAW: 


DRAW line draws a shape on the current graphics screen 


lineis a string expression that may include the following motion 
commands, modes, and options: 


Motion Commands 


Move the draw position 
Up 
Down 


45-degree angle 

135-degree angle 

225-degree angle 

315-degree angle 

Execute a substring and return 


Modes 


M 
U 
D 
L 
R 
E 
F 
G 
H 
xX 


olor 


Options 


N = No update of draw position 
B = Blank (no draw, just move) 
Note: If /ine is a string constant, you must enclose it in quotes. 


Always insert the B option directly before the M motion 
command; otherwise, unwanted lines may appear. 
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This program probably has 
replaced your dog as your 
best friend. 


5S PMODE 3r1 

10 PCLS 

20 SCREEN i+l 

25 DRAW "BM128,9635 
U255 R253 D255 
Lz" 

40 GOTO 40 


To make the program easier 
to read, we've separated 
each motion statement with 


a semicolon (;). You 
needn't do this. You must, 
however, always separate 
the (h,v) coordinates with a 
comma (,). 
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Earlier you learned how to create a box using LINE. To do this, you may 
have had to do some difficult figuring with the Graphics Screen Worksheet 
to locate the necessary start and end points. 


With DRAW, you have to locate only the start point and then tell the 
computer in which direction to draw and how far to do so. If you omit the 
start point, the computer starts at the last DRAW position or—if you 
haven't previously used DRAW—at the center of the screen. 


Use your “‘Lines’’ program to try out DRAW. Delete Line 30 and change 
Line 25 to the following: 


25 DRAW "BM128,96sU2ZSsR253D255L25" 


Presto! Can you guess why the square’s lower left corner is at (128,96)? 
Look at the first two numbers inside the quotes. 


The motion command, M, tells the computer at which point to later begin 
drawing. 


M h,v tells the computer at which point to begin drawing 


h is the horizontal position (O to 255). 
v is the vertical position (0 to 191). 


Note: Always preface M by the letter B; if you do not, 
unwanted lines appear. 


The above program tells the computer to start drawing at (128,96), draw up 
(U) 25 points, right (R) 25 more, down (D) 25 more points, and finally left 
(L) 25. 


Note: If you omit the line’s length, the computer uses 1 as the 
length. 


Setting the Square on Edge 
(Diagonal Lines) 
Instead of drawing horizontal and vertical lines, stand the square on one of 
its corners. To do this, substitute E, F,G, and H for U,R,L, and Din Line 25: 
25 DRAW "BM1i28;9GsE25sF253G25sH25" 


This DRAW starts at (128,96) too. Instead of going up, however, the first 
line angles off at 45 degrees; the computer draws the next 3 lines at their 
designated angles. 


If you are in Mode 0 or 1 and use E, F, G, or H to generate a line that has an 
odd-number length and at least 1 odd-number coordinate (h,v), Lines F 
and H have a slight “hitch’’ at the midpoint. If both coordinates are 
even-numbered, Lines E and G have the “hitch.’’ This is normal. 


DO-IT-YOURSELF PROGRAM 21-1 
You already know your computer is the star of the show, but can you 


prove it by drawing a star? Use the DRAW motion commands for both 
perpendicular and diagonal lines. 


Absolute M v Relative M 


Suppose you draw a square and then want to draw another one nearby. 
You know exactly how far away you want the second square to be, but 
don’t want to have to locate the coordinates (h,v). 


Another form of the M command lets you specify ‘‘relative’’ motion instead 
of ‘‘absolute’’ motion. So far, you have used absolute motion; you have 
specified points in terms of their coordinates (h,v). Using relative motion, 
you can specify points in relation to the current point (the point last drawn). 


Here’s the syntax for relative motion: 


Y sign h-offset, v-offset lets you specify points relative to the cur- 
rent point 


h-offset is the distance to move horizontally from the current 
position. If you precede it with a plus sign (+), the 
h-position increments by the specified amount. If you 


precede it with a minus sign (-), the h-position 
decrements. 

v-offsetis the distance to move vertically from the current. If you 
precede v-offset with a plus sign (+) or if you omit the 
sign, the v-position increments by the specified amount. If 
you precede it with a minus sign (-), the v-position 
decrements. 


For example, if you wish to create a second box at a position relative to that 
of the first box in the (redefined) ‘Lines’ program, you might add this line: 


30 DRAW "BM+15+15sU2Z55R253D255L25" 


When the computer executes Line 30, the current draw position is 
(128,96), which is the the last draw position in Line 25. So the lower left 
corner of the new square is at (238+15,96+15) or (255,111). 
Change Line 30 as follows: 

3@ DRAW "BM+1i55-155U255R253D255L25" 


Run the program. The start point of the new square is (128 + 15,96-15) or 
(143,81). 


DO-IT-YOURSELF PROGRAM 21-2 


After all this heated activity, you’re probably ready to cool off, so why 
don’t you use DRAW to create an ice cube? 


You can generate the entire cube using DRAW, or you can incorporate 
a couple of LINE commands within the program. Try to use both 
absolute and relative motion. 


Tipping the Scales 


What if the figures you draw turn out to be too big or too small? 


The solution’s easy. Your computer has a built-in function that lets you 
“scale’’ (up or down) any display generated by DRAW. All you have to do 


Absolute motion: “Go to 
the corner of 53rd Street 
and Bomber Lane.” 


EGO 7 


Relative motion: 
blocks down, take a right, 
and go 1 more block.” 


When you use the scale- 
down option, the computer 
rounds the resulting line 
length to the nearest whole 
number, if it is not already 
a whole number. 


For example, “S2U25R25D 
25125” results in a 12-1/2 
x 12-1/2 square. The com- 


puter draws a 13 x 173 


square. 
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is use the Sx command in the string. 


Sx lets you scale a display 


x is a number in the range 1 to 62 that indicates the scale 
factor in units of 1/4 as shown here: 


1/4 scale 

2/4 scale 

3/4 scale 

4/4 (full) scale 
5/4 (125%) scale 
8/4 (double) scale 
12/4 (triple) scale 


If you omit x, the computer uses 4 (4/4 = 1). 


After you enter an Sx command, the computer scales all absolute and 
relative motion commands accordingly until you enter another. 


Make your refined “Lines” draw a single square again. Do this by deleting 
Line 30 and changing Line 25 as follows: 


25 DRAW "S25FM128 +965U255R255D255L25" 


Run the program. The square in the lower left corner should be half the size 
you specified. 


To see how small or large a square can be, run the following program: 


> PMODE 451 

1@ PCLS 

20 SCREEN 1+1 

25 FOR SCALE = 1 TO G2 

30 S$ = "S" + STR#(SCALE) + "35" 

35 DRAW S$ + "BM10+190U2Z0R20D20L20" 
4@ NEXT SCALE 

390 GOTO 50 


Don’t make the mistake of thinking that the smallest square is the one 
specified in Line 35. The one we specified is the fourth one from the edge. 


Color Me... 


DRAW’s C option lets you specify the color of a particular line. 


First, list the ‘Lines’ program: 


> PMODE 311 

1@ PCLS 

20 SCREEN 1+1 

30 DRAW "S25BM128 ;9G65U2ZS53R255D255L25" 
40 GOTO 46 


Go back to full scale either by changing S2 to $4 or by deleting $2. Then, 
just inside the first set of quotation marks in Line 30, insert: 


C6 
Run the program. Does it display a cyan square on a buff background? 


Replace the C6 (in program Line 30) with C8 and run the program. Did the 
square turn orange? 


C must take the following form: 


Cx lets you specify a line’s color 


x is the color code (0 to 8). If you omit x, the computer uses the 
foreground color. 


You can insert Cx anywhere inside the DRAW statement. All actions that 
follow are the color you specify. For instance, change Line 30 to read: 


3@ DRAW "C85 BMI2Z28;96sUZ55R255 

C6i D253L25" If you want to “erase” a 

line, draw another line on 

Run the program. The program displays a 2-color square. The first 2 lines top of it using the back- 


drawn are orange. The second 2 are cyan. ground color. 


What’s Your Angle? 


Another option that is available with DRAW is A. This option lets you 
specify the angle at which a line is to be drawn. After you include A in the 
DRAW command, the computer draws all subsequent lines with the angle 
displacement specified by Ax until you specify otherwise. 


Your program should now read: 


3S PMODE 3+1 

1@ PCLS 

2@ SCREEN i +1 

30 DRAW "CG5BMi28;96;U2535 
R25 5D253L25" 

4@ GOTO 4@ 
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Here is the syntax for the A command: 


Ax lets you specify the angle of a line 
xis the angle code (0 to 3). All angles are measured clockwise. 


0 = 0 degrees 
90 degrees 
180 degrees 


270 degrees 


If you omit Ax, the the computer uses AO. 


To illustrate this, change program Line 30 to read: 
30 DRAW "A@®@5BM128;9G65U25" 


Run the program. Your screen displays a vertical line that is 25 points long. 
Now change Line 30: 


30 DRAW "A1sSBMi28,;963uU25" 


Run the program. The line is now horizontal. 


Just Shootin’ Blanks 


If you want the next line you draw to be a “‘blank’’ or an invisible line, 
include the B option. 


For example, let’s say you are drawing letters of the alphabet and are ready 
for the letter C, which is nothing but a square with the right side blank. 
Change Line 30 as follows so the program generates such a figure: 


30 DRAW "BM128;,9G65U255R25 3B sD255L25" 


Run the program. Remember, only the line immediately following the B is 
blank. 


DO-IT-YOURSELF PROGRAM 21-3 
Print your name on the screen using DRAW. This means you'll have to 


stay in the graphics screen. Sure, it would be easier to write your name 
on the text screen, but you can’t have “true” text and graphics at the 
same time. 


What! More Options? 


Another of DRAW’s many features is N, the ‘‘no update”’ option. N tells the 
computer to return to its original (current) position after it draws the next 
line. To see this, change Line 30 to read: 


30 DRAW "M128;965 Ni U255 N§ R255 NG 
D255 N§ L255" 


Run the program. The computer draws a 25-point line straight up from 
(128,96). It then returns to (128,96), draws the next line, returns, draws the 
next, and so on. As a result, four lines radiate from the center of the screen, 
each in a different direction (up, right, down, and left). 


DO-IT-YOURSELF PROGRAM 21-4 


Using DRAW’s N option (and CIRCLE), have the computer draw a pie 
that has 8 pieces. Once you've done that, cut out a piece of the pie and 
put it over to one side. 


String Constants v String Variables 


As stated earlier, the string following DRAW can be either a constant—as 
in the previous examples—or a variable. 


To use a string variable, precede the DRAW statement with a program line 
that identifies the variable as a string; then substitute the string for the 
quoted material in DRAW. For example, add Line 25 and change Line 30 
as follows: 


25 AS="BM128 ,96s5CBsU2Z5sRZ255D255L25" 
30 DRAW AS 


Run the program. The computer displays an orange box (25 x 25), the 
lower left corner of which is in the center of the screen. 


Extended Color BASIC offers a variation on this, called the ‘““execute”’ (X) 
action. While you execute a DRAW routine, the execute action lets you 
execute another DRAW string, then return to and complete the first 
operation. To do this, leave Line 25 as is so that it defines A$; then change 
Line 30. The two lines read: 


29 A$="BM128 -965CBsU2ZSSR2595D2595L25" 
3@ DRAW "BM9S:SOsU2ZS5R255 KASS D2S5L25" 


Run the program. The computer starts drawing at (95,50) a line that 
extends up (U25) and then right (R25). It then executes A$ so that it draws a 
25 x 25 square, starting at (128,96). After executing A$, it returns to the 
original (current) string and completes its execution (D25,L25). 


DO-IT-YOURSELF PROGRAM 21-5 


Do-It-Yourself Program 21-3 shows that you can simulate text (let- 
ters) on the graphics screen by drawing the letters. Use DRAW to 
create all 26 letters of the alphabet. Store the DRAW commands in 
strings. Then use the “‘execute’”’ (X) action to arrange the letters into 
words. 


DO-IT-YOURSELF PROGRAM 21-6 


Do you still have your house? If so, load the program again and use 
DRAW to make the front doo: open and close. 


Does that mean it’s a 
drawstring? 


A semicolon must always 
follow the dollar sign (even 
though the other semi- 
colons are not necessary): 


KAS FKX$SFXCH 


121 


122 


Learned in Chapter 21 


BASIC WORDS 


DRAW 


CONCEPTS 


Drawing visible lines 

Drawing invisible (blank) lines 

Scaling figures to size 

Coloring lines 

Returning the draw to its original position 
Using string variables to draw 

Executing a second draw in the middle of the 
firse 


Notes 


CHAPTER 22 


GET AND PUT: 
THE DISPLAY WENT 
THAT ARRAY 


In previous chapters, you've learned a few ways to move figures from one 
screen to another, but none is very efficient. Have no fear; there is a better 
array (groan). It has to do with GET and PUT. 


Using these statements, you can “get’’ a rectangular area from the screen, 
store its contents in an ‘‘array”’ (an area of memory), and then “put” it back 
anywhere you want on the screen. This is the best method for simulating 
motion. 


A who? A what? Arrays are 
covered in Part Ill, later in 
this manual. 


We use the term “rectan- 
gle’’ to refer to the area 
that contains the graphic 


display. Of course, you 
can’t actually see the rec- 
tangle. You'll have to visu- 
alize it. -Here’s an 
illustration to help you: 


The formats for GET and PUT are: 


GET h1,v1-h2,v2,array, G gets a rectangle from the current graph- 
ics screen and stores it in an array 


h1,v1_ is the rectangle’s upper-left corner. 

h2,v2_ is the rectangle’s lower-right corner. 

array is an area in memory that stores the rectangle. 

G stores the array in full graphic detail. It is required when 
using high resolution (Mode 4 or Mode 3 with colors) 
or when using the PUT action parameters. Otherwise, 
garbage appears on your screen. 


PUT h1,v1-h2,v2,array,action puts a rectangle, stored in an array, 
on the current graphics screen 


hi,v1_ is the rectangle’s upper-left corner. 

h2,v2_ is the rectangle’s lower-right corner. 

array is an area in memory where the rectangle is stored. 

action (shown on Table 22-1) tells the computer what to do 
with the points stored in the rectangle. 


Note: Be sure the computer is in the same PMODE for GET 
as it is for PUT. Otherwise, you may not ‘‘put’’ what you 
“got.” 


1:23 


How large a rectangle you 
can store in an array de- 
pends on how much mem- 
ory you have. Each point, 
when stored in an array, 
consumes 5 bytes of mem- 


ory. In a 16K RAM system, 
you can store no more than 
1400 points in an array. If 
your program is long, you 
may have to use a smaller 
array. 
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Type and run this program to see how GET and PUT work: 


2 PCLEAR 4 

1@ PMODE 3+51 

15> PCES 

20 SCREEN 1i+1 

25 DIM ¥(20+20) 

3@ CIRCLE (20:20) 510 

35 GET (10+10)-(30+3@) + 


42 FOR DLAY = i TO 300: NEXT DLAY 
45 PUT (110+110)-(€130+130) +V 

2@ FOR DLAY = 1 TO 300: NEXT DLAY 
6@ GOTO G@ 


The program draws a circle on one part of the screen and then moves it to 
another. To do this, the computer: 


1. Creates an array named V in memory (Line 25). Array V is big enough 
to store a 20 X 20 rectangle. 


2. Draws a circle on the screen (Line 30). 


3. Gets a 20 X 20 rectangle containing the circle and stores it in the 
Array V (Line 35). 


Clears the screen (Line 40). 
Puts the 20 X 20 rectangle (stored in Array V) back on the screen. 


Storing the Rectangle 


As you can see from the above program, GET and PUT use an array to store 
the rectangle. So, before you use GET or PUT, you need to create this array. 


The DIM statement lets you do this. 


DIM array(length, width) creates an array for storing a rectangle 
the size of length X width points 


Note: DIM should be one of the first lines in your program (after 
CLEAR and PCLEAR, if you use them). 


How large does the array need to be? This depends on how large a 
rectangle you want to ‘‘get’”’ or “‘put’’: 


Width = h2-h1 
Length = v2 - vi 
For example, the above program’s GET statement uses (10,10) and (30,30) 


to specify a rectangle. Thus, the rectangle is 20 X 20: It has a width and 
length of 20. The PUT statement uses the same size rectangle: 20 X 20. 


Put Not What You See 


You’ve now put a rectangle on the screen one way—with the PSET ac- 
tion. (When you don’t specify another action, the computer uses PSET.) 
There’s more than one way, though, to put rectangles on the screen. 


To see how the other actions work, start by running this program. It puts 15 
rectangles on the screen with the PSET action. 


3 PCLEAR 4 

19 DIM VY (38530) 

15 PMODE 251 

2@ PCLS 

25 SCREEN isi 

3@ CIRCLE (128,96) ,390 

35 PAINT (128;95) »2+4 

4@ PAINT (128597) .3:4 

45 GET (98,81)-(128+111)+V5G 
3@ PCLS 

3S FOR I = 158 TO 1 STEP -190 
6@ PUT (1+81-1/75)-(1+60+111-1/5) +V+PSET 
6S NEXT I 

7@ GOTO 78 


PSET sets and resets each point as it is in the array rectangle. Each rectangle 
it puts on the screen is the same as the one stored in the array. 


Now change Line 60 in various ways to try other actions. First, try PRESET. 
6@ PUT (1,+81-1/5)-(1+6@0;111-1/5) »V>+PRESET 


PRESET sets and resets the reverse of each point in the array rectangle. Each 
rectangle it puts on the screen is the reverse of the one stored in the array. 


Try the OR action: 
6@ PUT (1+8i1-1/5)-(1+60;,111-1/5) +V,OR 


OR sets each point that’s either (1) set in the array rectangle or (2) already 
set in the position where it’s putting the screen rectangle. Each rectangle it 
puts on the screen has all points set that are stored in the array plus what is 
currently on the screen. 


For a strange effect, try the NOT action: 
6@ PUT (1+8i1-1/5)-(1+6@+111-1/5) »VsNOT 


NOT sets and resets the reverse of what's on the screen. (NOT doesn’t care 
what's stored in the array.) Each rectangle it puts on the screen is the 
reverse of the previous one. 


Try the AND option with this program, and you won’t see anything: 
6O@ PUT (1+s81-1/5)-(1+60;111-1/5) +Y,AND 


AND sets each point that (1) is set in the array and (2) is already set on the 
screen in the position where it’s putting the rectangle. Any points that don’t 
meet both of those conditions are reset. In this case, each rectangle AND 
puts on the screen has all points reset—you see nothing. 


If the computer puts garbage 
on your screen, perhaps you 
have omitted the G option 
with GET. 
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This is a summary of each action: 


Option Function 

PSET Sets each point that is set in the array. 

PRESET Resets each point that is set in the array; sets each 
point that is reset in the array. 

AND Compares each point in the array rectangle with the 
screen rectangle. If both are set, the computer sets 
the screen point; if not, it resets the screen point. 

OR Compares each point in the array rectangle to the 
screen rectangle. If either is set, the computer sets 
the screen point. 

NOT Reverses the state of each point in the screen rec- 


tangle regardless of the array rectangle’s contents. 


DO-IT-YOURSELF PROGRAM 22-1 


Use GET and PUT to send a spaceship up the screen and across its 
“outer limits.” You might want to add a few asteroids and aliens to 
make the voyage more exciting! 


Learned in Chapter 22 


BASIC WORDS CONCEPTS 
GET Storing a screen display in an array 


PUT Returning the display to the screen in either 
the same or a different position 


Determining the state of the returned points 
of the display 


Notes 


CHAPTER 23 
A NEW KIND OF POINT 


As you recall from the SCREEN and PMODE chapters, your computer has 
two kinds of video memory—text and graphics. And it uses these two 
memories to create two kinds of screens—text and graphics. 


All the extended graphics statements (such as LINE, CIRCLE, PPOINT, and 
PMODE) create graphics screens using the massive power of graphics 
memory. This lets you draw exciting, high-resolution, and fast-moving 
images. 


There are two kinds of images, though, that you can’t produce on a 
graphics screen: 


: An image that uses all 9 colors (You can use no more than 4 colors on 
a graphics screen.) 


‘ An image that uses text, as well as pictures (You cannot print text ona 
graphics screen.) 


To produce these kinds of images, you need to draw pictures on a text 
screen. Extended Color BASIC has 3 statements you can use for this 
purpose: 


: SET—sets a dot on your text screen 
. RESET—resets a dot on your text screen 


' POINT—+tells what color a dot is on your text screen. 


If these statements remind you of PSET, PRESET, and PPOINT, that’s no 
accident. SET, RESET, and POINT perform the function on the text screen 
as PSET, PRESET, and PPOINT perform on the graphics screen. 


The analogy ends there, though. There are no text screen equivalents to 
such powerful statements as DRAW, PAINT, and PMODE. On a text 
screen, you can draw only one dot at a time. 
First make your screen black: 
10 CLS(@) 
Now set a dot—a blue one—on the top-left corner of your text screen. Type 
and run this program: 
20 SET(0+0+3) 
30 GOTO 30 
Set another dot—a buff one—on the bottom-right corner of your screen. 
20 SET(63+31+5) 
As you may see, you do not use the 256 X 192 graphics grid to set dots on 


your text screen. Instead, you use a 31 X 63 grid called the SET/RESET grid 
(shown in the back of this book). 
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When you reset a dot.on the 


text screen, the computer 
makes the dot black. 
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Setting Two Dots 


To set two dots on a text screen, you need to plan. To find out why, run 
a few programs. First, type and run this: 


1@ = CLS(@) 

20 SET(32+14:3) 
30 SET(33914+3) 
40 GOTO 40 


You should now have two blue dots—side by side—in the middle of your 
screen. Change the color of the right dot so you'll have one blue and one 
red dot. Type: 


3@ SET(33+14+4) 
Run the program again. This time, both dots are red. 


Look again at the SET/RESET grid. Notice that the darker lines group the 
dots into “blocks/’ Each block contains 4 dots. For instance, the block 
in the middle of the grid contains these 4 dots: 


Horizontal Vertical 
Position 32 14 
Position 33 14 
. Position 32 15 
Position 33 15 


Each dot within a block must either be: 


. the same color 
or 


. black 


The above program asks the computer to set two different-colored dots (red 
and blue) within the same block. Since the computer can’t set them in 
different colors, it sets them both the second color: red. 


Type and run this program: 
3®@ SET(34+14:+4) 


Since the dot in Position 34, 14 is in a different block, the computer 
can set the two dots in different colors. 


The Computer’s Face 


Drawing pictures on the text screen will seem primitive to you after using 
statements such as CIRCLE, DRAW, and PAINT. But if you want pictures 
and text, you can use the following program as a guide. 


Run this program, and you see computer’s face and text on the same 
screen. SET and RESET draw the picture (using the SET/RESET grid) and 
PRINT @ prints the text (using the PRINT @ grid). 


9 CLS(@) 
7 PRINT @ 397+ "HELLO" 3 


i@ FOR H = 15 To 48 
(2 SET(H15 25) 
30 SET(H+20:5) 


“40 NEXT Ho LU foce 


50 FOR V = 2 
60 SET(15 oe 7 Notice we've changed Line 
70 SET(485V55) 50—the GOTO line. 


80 NEXT W 
9@ SET(32513+8) ———— saz 
190 FOR H = 28 to 36 

Cie SET(H+16+4) rnouth 
12@ NEXT H 
130 SET(25+10;+3) ' 


rc SET(38 +1093) ———— £4 


150 RESET(38;190) AtinVv 


160 GOTO i490 


Notice that this program is able to draw 5 colors on one screen—and could 
actually draw all 9 colors. 


These are the formats of SET, RESET, and POINT: 


SET h,v,c sets a point on the text screen 


his the horizontal coordinate (0-63) 
v is the vertical coordinate (0-31) 
c is the color code (0-8) 


RESET h,v resets a point on the text screen 


h is the horizontal coordinate (0-63) 
v is the vertical coordinate (0-31) 


POINT h,v tells what color a point is on the text screen 


h is the horizontal coordinate (0-63) 
v is the vertical coordinate (0-31) 


If You Have the Joysticks... 


If you have joysticks, connect them now by plugging them into the back of 
your computer. They fit in only the correct slots, so don’t worry about 
plugging them into the wrong places. 


Now run this short program to see how joysticks work: 


10 CLS 

20 PRINT @ @+ JOYSTK(@)3 
30 PRINT @ S+ JOYSTK(1)3 
40 PRINT @ 10+ JOYSTK(2) 


5 Be sure to type the semi- 
5@ PRINT @ 15+ JOYSTK(3)3 GORONS aE Wie cee vs 


20, 30, 40, and 50. 


60 GOTO 290 


See the 4 numbers on your screen? They’re the horizontal and vertical 
positions of the 2 joysticks’ ‘floating switches.” 


Grasp the right joystick’s floating switch. (The joystick connected to the 
RIGHT JOYSTICK jack on the back of the computer.) Keeping it in the 
center, move it from left to right. The first number on the screen changes 
from 0 to 63, going through all the intervening numbers. 


129 


The second or fourth num- 
ber may change also, but not 
from 0 to 63. 


This program uses joysticks 
with text screen pictures. 
You can just as easily use the 
joysticks with — graphics 
screen pictures. 


130 


Move the left joystick’s floating switch from left to right. The third number 
on the screen changes. 


Now move the floating switches up and down, keeping them in the center. 
Moving the right joystick up and down changes the second number from 0 
to 63. Moving the /eft joystick up and down changes the fourth number 
from 0 to 63. 


This is how the computer reads the joysticks’ positions: 


JOYSTK(O) and JOYSTK(1) read the right joystick’s positions: 
' JOYSTK(O) reads the horizontal (left to right) coordinate. 
: JOYSTK(1) reads the vertical (up and down) coordinate. 
JOYSTK(2) and JOYSTK(3) read the /eft joystick’s positions: 

, JOYSTK(2) reads the horizontal coordinate. 

. JOYSTK(3) reads the vertical coordinate. 


Whenever you read any of the joysticks, you must read JOYSTK(0). To find 
out for yourself, delete Line 50 and run the program. It works almost the 
same, except it doesn’t read JOYSTK(3) — the vertical position of your left 
joystick. 


Delete Line 20 and change Line 60: 
6% GOTO 38 


Run the program. Move all the switches around. This time the program 
doesn’t work at all. The computer won’t read any coordinates unless you 
first have it read JOYSTK(O). Type these lines and run the program: 


28 A = JOYSTK(@) 
69 GOTO 20 


Although the computer’s not printing JOYSTK(0)’s coordinates, it’s still 
reading them. Because of this, it’s able to read the other joystick 
coordinates. Whenever you want to read JOYSTK(1), JOYSTK(2), or 
JOYSTK(3), you first need to read JOYSTK(O). 


Painting with Joysticks 
Type and run this program: 


10@ CLS(®@) 

H = JOYSTK(O) 

30 VY = JOYSTK(1) 

40 IF VY > 31 THEN V = V - 32 
BO SET(H+V¥+3) 

90 GOTO 20 


Use the revolving switch of your right joystick to paint a picture. (Move the 
switch slowly so that the computer has time to read its coordinates.) 


Line 20 reads H—the horizontal position of your right joystick. This can be 
a number in the range 0 to 63. 


Line 30 reads V—its vertical position. This also can be a number in the 
range O to 63. Since the highest vertical position on your screen is 31, Line 
40 is necessary: It makes V always equal a number in the range 0 to 31. 


Line 80 sets a blue dot at H and V. 


Line 90 goes back to get the next horizontal and vertical positions of your 
joysticks. 

This uses only the right joystick. Perhaps you could use the left one for 
color. Add these lines and run the program: 


90 C = JOYSTK(2) 

6@ IF C ¢ 31 THEN C = 
70 IF C +» = 31 THEN 
BO SET(H+V+C) 


3 
c=4 


Move your left joystick to the right, and the computer makes C equal to 3; 
the dots it sets are red. Move it to the left, and the computer makes C equal 
to 4; the dots it sets are blue. 


Want to use your joystick buttons? Add these lines to the program: 


10202 P = PEEK(65284@) 
11@ PRINT P 
120 GOTO i199 


Now type: 
RUN 1@@ (ENTER 


This tells the computer to run the program starting at Line 100. Your 
computer should be printing either 255 or 127 over and over. 


PEEK tells the computer to look at a certain spot in its memory to see what 
number's there. Line 100 looks at the number in Position 65280. As long as 
you’ re not pressing either of the buttons, this spot contains the number 255 
or 127. 


Press the right button. When you press it, this memory location contains 
either the number 126 or 254. 


Press the left button. This makes this memory location contain either the 
number 125 or 253. 


J 


Using this information, you can make the computer do whatever you want 
when you press one of the buttons. We'll make it go back to Line 10 and 
CLS(0) (clear the screen to black) when you press the right button. Change 
Lines 110 and 120: 


110 IF P 126 THEN 194 
120 IF P 294 THEN 190 


Delete Line 90 and add this line: 
130 GOTO 20 


Run the program and start ‘‘painting.”’ Press the right button when you 
want to clear the screen and start again. 


If you press the buttons 
when you’re not running 


the program, you'll see 
@ABCDEFG or HIJKLMNO. 


Some joysticks will not read 
six “blocks” in each of the 
four corners of your screen. 
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Learned in Chapter 23 
BASIC WORDS 


SET 
RESET 
JOYSTK 
PEEK 
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CHAPTER 24 


PLAY IT AGAIN, TRS-80 


So you think your computer is a good artist, huh? Well, you haven't heard 
anything yet! Wait until you find out about its musical talents! Ready? Then 
let’s get down to work and PLAY. 


Your computer’s PLAY function allows you not only to play music, but to 
compose it, as well. 


Note: PLAY, of course, is not a graphics function. Therefore, you needn’t 
preface your programs with PMODE, PCLS, or SCREEN. 


Listen Carefully ... 


Here is the syntax for PLAY: 


PLAY music plays the value of music, a string expression including 
the following: 


note (a letter from ‘’A’’ to ““G’”’ or a number from 1 to 12). 

octave (O followed by a number from 1 to 5). If you omit 
the octave, the computer uses Octave 2. 

note-length (L followed by a numeral from 1 to 255). If you 
omit the note-length, the computer uses the current 
length. 

tempo (T followed by a number from 1 to 255). If you omit 
the tempo, the computer uses T2. 

volume (V followed by a number from 1 to 31). If you omit 
the volume, the computer uses V15. 

pause-length (P followed by a number from 1 to 255). 

substrings. Precede substrings with an X and follow them 
with a semicolon. Example: XA$; 
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Let’s Compare Notes 
(NOTE) 


Obviously, you can’t have music without notes. PLAY gives two ways to 
specify the precise note you need. 


The first—and probably easier—way to play the note you want is to enter 
one of the standard musical notes—A, B, C, D, E, F or G. To indicate a 
sharp note, follow the note with a plus sign (+) or with the pound sign (#). 
To indicate a flat, follow it with a minus sign (—). 


For example, A represents A natural; A# is A sharp; and A — is A flat. Type 
the following to see (hear?) what we mean: 


PLAY "A" (ENTER 
To hear the change that a sharp and a flat can make, enter these lines: 


PLAY "AsA#" (ENTER 
PLAY "A-sSA5SA#5A5A-" (ENTER 


You can do the same with all seven notes (A-G) on the scale, except B and 
C. Since B# =C, you must use C. Likewise, since C— =B, you must use B. 


A New “Note’’-ation 


Another way to specify a musical note is to use a number between 1 and 
12, prefaced by the letter N. (If you omit N, the number alone indicates the 
note.) 


The numbers 1 through 12 represent every note on the musical scale, 
including all sharps and flats. This is a more concise notation, although it is 
more difficult to read if you already know the standard notation. 


Note: Since PLAY does not recognize the notation B# or C—, use the 
numbers 1 and 12, respectively, or substitute C for B# and B for C—. 


To hear the full 12-tone scale, run the “Scale” program, which follows. 


>» CLS 

i9@ FOR N = 1 to 12 ‘’N = NOTE 
15 PRINT "NOTE#"5 N 

20 PLAY STR#(N) 

30 NEXT N 


Add a delay in the program so you can compare the numbers to the notes 
as the scale goes up from 1 to 12 (C to B). 


295 FOR I = 1 TO 3@@: NEXT I 


[ Musical Note/Number Table | 
ee 


Number | Note | 

1 | aS 

2 c#/D 

3 D 2 4 7 9g 
4 E-D# | 

5 E/F- 

6 FiE# | 

7 F#'G 

8 G 

9 | G#A- 

10 A 

1 A#B- | 

12 B } 1 3 5 6 8 10 12 1 


DO-IT-YOURSELF PROGRAM 23-1 


Modify the ‘‘Scale’’ program so it goes down instead of up. 


Whole Notes, Half Notes, 
Quarter Notes... 
(NOTE-LENGTH) 


Because the ‘‘Scale’’ program does not specify note-length, the com- 


puter automatically uses quarter notes, the initial ‘‘current value.’ : : 
Did you time the notes to be 


To choose the note-length, use L followed by a number from 1 to 255. The bee bide are four times i 
number 1, for instance, denotes a whole note, 2 a half note, 4.a quarter | /0M8* It's not necessary; the 


F : computer's internal clock 
note, 8 an eighth note, 16 a sixteenth note, and so on. did ke you. g 


In fact, you can use any number from 1 to 255. (Who ever heard of a 1/15th 
note?) 


Vary the note-lengths to produce a drum roll. Type: 
PLAY "LZ2SAS3L45ASA5LZ25A5A" (ENTER 


Lnumber Note-Length Note 
Et Whole note ° 
L2 Half note Jd 
L3 Dotted quarter note dé. 
L4 Quarter note d 
L8 Eighth note é& 
L16 1/16 note & 
L32 1/32 note Pa 
L64 1/64 note y 
L255 1/255 note 
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We bet you’ve heard of 
“turning down the stereo” 


but not “turning down the 
computer”! 
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L2 indicates a half note; L4 a quarter note, so we played as follows: ‘half, 
quarter, quarter, half, half.’’ 


PLAY "Lis AsA#5A-" (ENTER 


Notice that you needn’t repeat the L option for each note. PLAY uses the 
current note value until you enter another L command to tell it otherwise. 


In fact, most PLAY options discussed in the rest of this chapter use a 
“current” value until you change them. 


Just for fun, try playing three 1/255 notes on A: 
PLAY "L2555A3A+5A-" (ENTER 


Now that’s staccato. 


Love That Dotted Note 


If you read music, you already know about ‘‘dotted notes.’ The dot tells 
you to increase the length of the note by one half its normal value. For 
example, a dotted quarter note is equal to a ‘’3/8’’ note. 


You can play such a note by adding a period (.) or a series of periods 
(...) to the Lnumber. Each period increases the note-length by 1/2 its 
normal value. For example: 


L4. = 1/4 + 1/8 = a 3/8 note 

Try this: 
PLAY "L4.sAS3LB5C5L4.5E53LE85CsSEsSCSESC5L45A" 
ENTER 


Let’s Go Up (or Down) an Octave or Two 
(OCTAVE) 
Our single octave (Octave 2) sounds fine, but, variety being the spice of 


music as well as Irish stew, it gets a little boring when played over and 
over (like a piano with only 12 keys). 


To change octaves, use the letter O followed by a number in the range 
1 to 5. (Any number out of this range results in an illegal function call 
error.) 


If you don’t specify the octave, the computer automatically uses Octave 
2, which includes middle-C. Let’s try to play a simple C scale: 


PLAY "CDEFGABAGFEDCBA" (ENTER 


What happened? G is the highest note in Octave 2, so when the com- 
puter reached A, it started over at the beginning of the octave. To get 
out into Octave 3, try this: 


PLAY "CDEFGSO035ABA0GZ5FEDCBA" (ENTER 


Play It Again—Louder! 
(VOLUME) 
Sure, you can adjust the volume of your music by using the TV volume 


control, but who wants to sit by the set all of the time? Especially when the 
computer can adjust the volume for you. 


Your computer does this with the V (volume) feature. All you need to do is 
use V followed by a numeral between 0 and 31. If you don’t specify the 
value of V, your computer automatically uses V15. 


The computer uses the current V value until you change it. 


Adjust the volume on your TV to a normal setting and run this short 
program: 


> CLS 

1@ PLAY "YVS5A5 VISAS YIS5A5 Y205A5 Y255A5 
YV3O5A" 

20 GOTO i® 


Getting a headache? Press (BREAK) to get out of the loop. 


A Moment of Silence, Please 
(PAUSE) 


Maybe that last little program would be easier to listen to if all the notes 
weren’t played together. Use the P (pause) feature for a few moments of 
silence between the notes and see if they sound better. 


To put a pause between notes, use P followed by a number from 1 to 255. 
Pause-lengths correspond to note-lengths with one important difference. 
You can’t use dots (periods) with P. To compensate, just type a series of 
pauses. For example, to get a 3/8 pause, type P4P8. 


Change Line 10 in the last program to read: 


1@ PLAY "YVS5A5 PZ VIBIAS P25 VISAS 
P25 V205A5 P23 VY2S5A5 P23 VY3OIAS PZ" 


Actually, a half note pause (P2) between all those As doesn’t make them 
sound much better, but you should get the idea of how P works. 


It’s Time to Pick Up the Tempo 
(TEMPO) 


Right now the test program looks like this: 


3 CLS 

10 PLAY "VSSASP25 VIOSAEPZS VISFAIPZ3 
Y2O5AIP25 Y2ZSIASPZ3 VOOIATP2Z" 

2@ GOTO i@ 


We've left spaces between 
each volume/note combina- 
tion so you can read the 
line without difficulty. The 
spaces are not required. 
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A tempo that slow is almost 
enough to keep you 
awake—almost. 


lf you use machine-lan- 
guage to generate the music 
and “Tn” to slow the tempo, 
would your computer be a 
Slow-POKE? 
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It’s passable, if not pleasurable, but the tempo (speed) is a little slow. You 
can increase or decrease the tempo with T and a number from 1 to 255. li 
you don’t specify a tempo, your computer automatically uses T2. Start by 
slowing down the tempo of the program: 


1@ PLAY "Tis YSsAEPZ5 VIGFASPZ$ YVLISFAGPZ3 
Y2OIASP2Z3 Y2S5ASPZ35 Y3OOIASP2" 


Speed it up by changing T1 to T15. Now that’s more like it. 


How about speeding it to the maximum, 255, and running the program. 
That didn’t take long, did it? 


Executing the Substring 
(X) 
Remember DRAW’s execute (X) option? PLAY has a similar feature that lets 
you execute a substring, then return to the original string and complete it. 
The execute function takes the following form: 
XA$; 


A$ contains a sequence of normal play commands and functions. X tells 
the computer to PLAY A$. 


Rearrange the demonstration program so that it executes a substring: 


3 CLS 

10 AS = "AsSARSA-" 

20 BS = "OSsXASs" 

30 C$ = "O1LFXASIKBS5" 
40 PLAY C% 


Run the program and follow its execution. 


Note: Whenever you use the execute function, a semicolon (;) 
must follow the dollar sign ($). In this example, you can delete all 
semicolons except those following the dollar sign. 


One Further Note... 
oe ig ee | 


No, we're not going to spring a new note, like H or J, on you. We just have 
one final way you can use some of PLAY’s options. With O (octave), V 
(volume), T (tempo), and L (note-length), you can use one of the following 
suffixes instead of adding a numeral: 


Suffix Purpose 


- Adds 1 to the current value. 
Subtracts 1 from the current value. 


> Multiplies the current value by 2. 
< Divides the current value by 2. 


Use the sample program to learn about these features. 


5 CLs 
10 PLAY "T2" 


20 PLAY "AsA#5A-" ; send 
s Here is the formula that you 
30 GOTO 28 can use to calculate the 


‘ ; : note-length: note-length + 
Notice that Line 10 sets the tempo. Run the program once just to get an ear inoteclenglh a= number of 


for it. Nothing’s changed; it’s the same as always. Now insert T in Line 20. dots)/2 
20 PLAY "T+3 AsSA#5A-" 


Run the program. The plus sign automatically increases the value of T by 1 
each time Line 20 is played. From a slow start you can really begin to fly! 
Did you hear it shift gears somewhere around T1002 


Now reduce the tempo, using a minus sign (—): 


5S ELS Haven’t you had days like 
19 PLAY "T2355" that? You start at 255 and by 


“TL! as BAU the end of the day, you‘re 
oe neon =i 1 ATASIA hitting on one cylinder. 


After a fast start, the computer finally manages to slow the tempo down to 
1—one step at a time. 


Isn’t multiplication faster than addition? In Line 10, reset the tempo to 2, 
change T in Line 20 to T>, and let it rip. 


4@ (PLAY ' TZ" 
20 PLAY "T?i ASA#SA-" 


You started out with T2, right? The computer multipled that value by 2 to 4, 
4x 2 to 8, 8 x 2 to 16, and so on until it reached 255. 


You can slow the tempo down just as quickly by dividing the current 
tempo by 2 using “<.”’ 


1@ PLAY "T2535" 
20 PLAY "Tis ASAHFA-" 


Remember, you can do the same thing with L, V, and O to change the 
note-length, the volume, and the octave. 


Roll Over, Beethoven 


After all the hard work you've done lately, you deserve to be serenaded. 
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Are you familiar with all the PLAY functions? If so, watch them at work in 
the following program and see if you can name this tune! 


5 CLS 

100 AS = "TSSCSESFSLisGsP4sL4sCsEsFslLisG" 

105 BS = "P4sLa4sCsEsFslL25;GsEsCsEs3LisbD" 

110 C$ = "PBSIL4SEs3E3D5L2.5C3L4sCilL23E" 

115 Dé = "L43GsGsGsLisFsLa4sEsF" 

120 E@ = "LZ25Gs5EsL43;C3L8sDsD+sDsEsGiL4sAiLi 
5035C" 

125 K$ = "XAS$SXBSsSXCH$IXDS$SXESS" 


130 PLAY X¢% 
Do you recognize that song? Dress it up a bit by adding these lines: 


10 PRINT @ 9G;+ STRINGS (32;"%") 


20 PRINT @ 167+ "WHEN THE SAINTS" 
3@ PRINT @ 232+ "GO MARCHING IN" 
35 PRINT @ 288+ STRING# (32,"%") 
40 FOR KX = 1 TO S00: NEXT X 


5@ PRINT @ 128+ "OH WHEN THE SAINTS" 
33 PRINT . 169+ "OH WHEN THE SAINTS" 


We dropped the “G” from 60 PRINT @ 192+ “OH WHEN THE SAINTS 
MARCHING in Lines 60 and Go ela I N I N un 
Un rae pene 65 PRINT @ 224) "YES I WANT TO BE IN THAT 
NUMBER" 
70 PRINT @ 256+ “WHEN THE SAINTS GO MARCHIN 
I N u 


Run the program now and sing along with TRS-80. What? You liked it so 
much you want to hear it again. Okay, add these lines: 


15@ CLS 
160 PRINT @ 130; "PLAY IT AGAIN» TRS-80" 
If you use PCLS3 to clear the 165 FOR K = i TO 5@@: NEXT X 
graphics screen and -then 170 CLS 
Oe haan 175 PRINT @ 233, "I’D BE GLAD TO" 
Grae te bles? 189 FOR I = 1 TO 500: NEXT I 
185 GOTO 5 


DO-IT-YOURSELF PROGRAM 24-2 


Our rendition of ‘‘Saints’’ sounds fine, but it isn’t true New Orleans 
style. Jazz it up to suit your own musical tastes. Try changing oc- 
taves or adding a few sharps or flats. 


DO-IT-YOURSELF PROGRAM 24-3 


Try some musical arrangements of your own. We've included sev- 
eral in the Sample Programs at the back of the book. 
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Learned in Chapter 24 


BASIC WORDS 
PLAY 


CONCEPTS 


Generating musical notes, including dotted 
notes 
Determining note-length 


Changing octaves 

Adjusting the volume 

Pausing between notes 

Changing the tempo 

Executing substrings 

Using suffixes to give values relative to the cur- 
rent value 


Notes 
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THE REAL THING 


A special section showing displays 
created by programs in this book. 


Spiral 


There’s a tunnel at the end of the 
tunnel. When you assign variables 
to CIRCLE, it’s possible to create a 
spiral. This is one way you can sim- 
ulate smoke coming from the chim- 
ney of your house (see DO-IT- 
YOURSELF PROGRAM 19-4). 


Fantastic! 


DO-IT-YOURSELF PROGRAM 21-2 
shows you how to cool off with an 
ice-cube. Another way is to turn on 
the fan and watch it spin. And if 
you let this program run for a 
while, that’s exactly what happens. 
See Sample Program #19 for a list- 
ing of this program. 


Projection Studies 


Starting at the upper left and going 
down, you can see different views 
(top, front, side, and oblique) of a 
“block.” You can also scale the first 
three views up or down using 
DRAW’‘s “Scale” feature. (Since the 
45-degree oblique view contains 
three LINE statements, it can’t be 
scaled.) See Sample Program #7. 


Box 


This is a 2-step process. First the 
cube (created by DRAW and 
PAINT) appears in its 3-dimensional 
form. After a short delay, the box 
unfolds so you can see all 6 of its 
sides. This uses DRAW, along with 
several LINE and PAINT statements. 
See Sample Program #8. 


In-Out 


When you assign variables to a 
COLOR and a LINE statement, this 
is one thing the computer might do 
with it. Take a look at Sample Pro- 
gram #5 to see how easy this is. 


Navaho Blanket 


Actually, the size of this makes it 
more like a muffler instead of a 
blanket, but you should be able to 
finish ‘‘weaving’”’ it. Basically, the 
program uses only a couple of LINE 
statements that increment at speci- 
fied ‘‘steps’’ and a PAINT statement 
or two. Incidentally, this might help 
you with DO-IT-YOURSELF PRO- 
GRAM 15-3. Sample Program #12 
gives you a complete program 
listing. 


Home, Sweet Home 


One of your exercises throughout 
this book is to ‘‘build’’ a house (see 
DO-IT-YOURSELF PROGRAMS 15- 
2 and 19-4). Here’s one you might 
use as a model. In this instance, the 
garage door is up (using PAINT), 
the light is on, and the grass (gener- 
ated by RND, DIM, and PSET) is 
growing. 


After the Boom Is 
Over... 


These concentric circles (increment- 
ing at STEP 2) are used at the end 
of the ‘“‘Timebomb” program (Sam- 
ple Program #18). Notice that 
when you use buff with high reso- 
lution, it appears to produce several 
colors, giving a metallic luster to 
the display. 


Painted Lace 


This program requires DRAW state- 
ments, a few buckets of PAINT, and 
a lot of patience. Look at Sample 
Program #13 and you'll see the 
way it’s done. 


Open and Closed 
Cubes 


In DO-IT-YOURSELF PROGRAM 
21-2 you drew the closed cube. 
Now “‘open”’ it. 


Random Graphics 


Random graphics are generated 
when you assign random (RND) 
values to LINE, CIRCLE, COLOR, 
and PAINT and then let the com- 
puter take over. For a listing of this 
program, see Sample Program #11. 


Rolling in the Clover 


Sample Program #17 shows you 
how to create an eight-leaf clover. 
By changing the COS value in Line 
35 to 2, you can generate a four- 
leaf clover. What happens if you 
change the COS value to 1? This 
program is a good illustration of 
PSET, SIN, and COS and a novel use 
of pi. 


Riding the Waves 


Here the computer uses PSET, SIN, 
and COS to draw sine/cosine waves 
and LINE to draw the H-V axes. 
Notice that each wave travels 360 
degrees (from +180 to —180) and 
that the H-axis increments 30 de- 
grees at each gradation. This is a 
good exercise in mapping (scaling 
down) a program to fit the TV 
screen. Sample Program #9 gives a 
complete listing of this program. 


SECTION III 


GETTING DOWN 
TO BUSINESS 


This section deals with information you want to manage. For example, you 
may want to manage: 


° Checkbook receipts 

° Shopping items 

° Tax records 

° Inventory 

° Addresses 

° Records, books, or tape collections 


In this section, you'll learn how to store, update, sort, and analyze informa- 
tion to fit your own needs. 


CHAPTER 25 


TAPING 


Your first and foremost task is to store your information permanently on 
cassette tape. This, of course, requires a tape recorder. 


CHRISTMAS LIST: 


RECORbs: 
- PoP 
- COUNTRY / WESTERN 


Ready to get organized? We'll start with your book collection. Here’s a 
small list of books: 


WORKING 

CAT’S CRADLE 
SMALL IS BEAUTIFUL 
STEPPENWOLF 


If you've read your introduction manual, you know how to save BASIC 
programs on tape. To save information, you need a program that follows 
these steps: 


RWN 


STEPS FOR STORING INFORMATION ON TAPE 


. Ogen communication to the tape recorder so that you can output 
(send out) information to a file. 


2. Output all information to the tape recorder file. 


3. Close communication to the tape recorder. 


Start the program with this line: 
1@ OPEN "O"+ #-1+ "BOOKS" 


This ‘““opens’”” communication to the tape recorder (‘‘device #-1’’) so that 
you can “output” (“’O’’) information. Whatever information you output, 
the computer stores on tape in a “‘file’’ named BOOKS. 


A “tile” is a collection of in- 
formation—such as book ti- 
tles—stored under one 
name. 


Now output the information. Type: 


15 CLS: PRINT “INPUT YOUR BOOKS--TYPE <xkxX> 
. WHEN FINISHED" 

20 QINPUT "TITLE"$ TS 

30 PRINT #-i+ TS 

48 GOTO 15 
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Line 20 ‘‘prints’’ (outputs) your book titles—not to the screen, but to device 
# - 1, the tape recorder. 


Then close communications. Type: 


25 IF T$ = "XX" THEN 5@ 
5@ CLOSE #-1 


The computer then closes communication to the tape recorder. 


Add three more lines to the program: 


1 LS 
2 PRINT "POSITION TAPE - PRESS PLAY AND 
RECORD" 


4 INPUT "PRESS “ENTER* WHEN READY"S RE 


The program should now look like this. 


i CLs 
2 PRINT "POSITION TAPE--PRESS PLAY AND 
RECORD" 


4 INPUT "PRESS <ENTER? WHEN READY'"S R& 
—310 OPEN "OO", #-i+ "BOOKS" 
15) CLS: PRINT “INPUT YOUR BOOKS - TYPE <XX> 
WHEN FINISHED" 
20 INPUT "TITLE"$5 TS 
25 IF T# = "XX" THEN 50 


Punks titles 0 4, ——}30 PRINT #-1+ T$ 


4@ GOTO id 


Comemunimtom ——_}5@ CLOSE #-1i 


The computer clears the 
screen after each title. 
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Prepare the recorder. 


Connect the recorder. Your computer's introduction manual shows 
how. 


Position a tape in the recorder, and, if necessary, rewind the tape so 
you'll have room for recording. (If you're using a non—Radio Shack 
tape, position it past the starting leader.) 


Press the recorder’s RECORD and PLAY buttons so that they are both 
down. 


Then run the program. As soon as you press (ENTER), the cassette motor 
turns on: The computer is opening a ‘‘file’ on tape and naming it BOOKS. 


The program then asks for titles. Type: 


TITLE? WORKING 

TITLE? CAT’S CRADLE 
TITLE? SMALL IS BEAUTIFUL 
TITLE? STEPPENWOLF 
TITLE? XxX 


Each time you input a title, the computer prints it in a special place in 
memory reserved for the tape recorder. When you finish, the tape recorder 
motor turns on: The computer is printing all the titles to the recorder (Line 
30) and then closing communication with the recorder (Line 50). 


Your book titles are now all saved on tape in a file named BOOKS. To read 
them back into memory, use just about the same steps. 


STEPS FOR INPUTTING INFORMATION FROM TAPE 


. Open communication to a tape recorder so that you can input 
information from a file. 


. Check to see if you're at the end of the file. 


. Input information from the tape recorder file. 


. Repeat Steps 2 and 3 until you reach the end of the file. 


. Close communication to the tape recorder 


To open communication, type: 


60 CLS: PRINT “REWIND THE RECURDER AND 
PRESS PLAY" 

7®@ INPUT "PRESS <ENTER> WHEN READY" R& 

8@ OPEN "I"y #-is “BOQKS" 


This opens communication to the tape recorder—this time, to input in- 
formation from the BOOKS file. 


To input information, add these lines: 


9@ INPUT #-i; BS 
100 PRINT BS 


Line 90 inputs the first book title (B$) from the BOOKS file stored on tape. 
(The variable name you choose makes no difference.) Line 100 displays 
this title on your screen. 


To check for the end of the file and close the file, add these lines: 


B85 IF EOF (-1) THEN 1i2@ 
110 GOTO 85 
120 CLOSE #-1 


Line 85 says if you are at the end of this file (in this case, the BOOKS file), go 
to 120 and close communication with the tape recorder. 


Note that EOF(-1) comes before the INPUT #-1 line. If it’s after INPUT #-1, 
you'll get an IE error—‘‘input past the end of the file.’’ 


List this last part of the program by typing LIST 60 - (ENTER). It should look 
like this: 


6@ CLS: PRINT "REWIND THE RECORDER AND 
PRESS PLAY" 

70 INPUT "PRESS “ENTER? WHEN READY'"S R 

B® OPEN "I"y #-1+ "BOOKS" 

85 IF EOF (-i) THEN 128 


90 INPUT #-1; B¢ 
100 PRINT BS 

11@ GOTO 85 

120 CLOSE #-1 


Now run this part of the program. Type: 
RUN 6@ (ENTER 


When you press (ENTER), the recorder’s motor comes on while the com- 
puter inputs items from tape. When finished, it displays the four items on 
your screen. 


Are you wondering what the 
-1 means? EOF returns a -1 
when you reach the end of 
the file. 


Be sure to press only the 
PLAY button, Not RECORD. 
Also, be sure to rewind the 
tape. 


If your computer becomes 
“hung up” communicating 


with the tape recorder, you 
can regain control by press- 
ing the RESET button. It’s on 
the back right-hand. side of 
your keyboard. Then look 
for missing or mistyped lines 
in your program. 
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An Electronic Card Catalog 


Assume you need to change the program so it can also store the books’ 
authors and subjects: 


TITLE AUTHOR SUBJECT 
Working - Studs Terkel Sociology 
Cat’s Cradle Kurt Vonnegut Fiction 
Small Is Beautiful E. F. Schumacher Economics 
Steppenwolf Hermann Hesse Fiction 


Start by changing the “output” part of the program (the first half}. Type 
these lines: 


Then 


26 INPUT "AUTHOR'S A$ 

28 INPUT "SUBJECT: S$ 

29 IF AS = "XX" OR S$ = "KX" THEN 50 
30 PRINT #-1+ T$+ ASs SF 


change the “input” part of the program. Type these lines: 


92 INPUT #-1i+s Bs ASs SE 
106 PRINT "TITLE :" BS 
i@2 PRINT "AUTHOR :" AS 
194 PRINT “SUBJECT :" S$ 


Now take advantage of this organization. For example, have the program 
print a book list on any given subject. Add these lines: 


i3@ CLS 

140 INPUT "WHICH SUBJECT"; C% 

150 PRINT “REWIND THE TAPE - PRESS PLAY" 
i160 INPUT "PRESS <ENTER? WHEN READY"$ ES 
170 CLS: PRINT C# " BOOKS" =: PRINT 


— i180 OPEN "I">» #-1» "BOOKS" 


190 IF EOF (-1i) THEN 230 


—3200 INPUT #-1+ BS, AS; SS 


210 IF S# = C# THEN PRINT B%+' AS 
220 GOTO 190 


— 23060 CLOSE #-1 


Run the input part of the program by typing RUN 130 (ENTER). If you choose 
“fiction,” this happens: 


WHICH SUBJECT? FICTION 
REWIND THE TAPE - PRESS PLAY 
PRESS <ENTER? WHEN READY 


FICTION BOOKS: 


CAT’S CRADLE KURT VONNEGUT 
STEPPENWOLF HERMANN HESSE 


101 
102 
103 
104 
105 


DATE 


5/13 
5/13 
5/14 
5/17 
5/19 


DO-IT-YOURSELF PROGRAM 25-1 
Assume you have these checks: 
NO. 


PAYABLE TO 


Safeway 
Amoco 
Joe’s Cafe 


ACCOUNT 
food 

car 

food 


American Airlines — vacation 


Holiday Inn 


vacation 


Learned in Chapter 25 
BASIC WORDS 


OPEN 


CLOSE 
PRINT #-1 
INPUT #-1 

EOF 


Notes 


BASIC CONCEPT 
data files 


AMOUNT 
$52.60 


32.70 
10.32 
97.50 
72.30 


Write a program that outputs all the checks to tape. Then have it input 
them from tape so that you can type one account—such as food—and 
the computer wil! tell you the total amount you've spent on food. 
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CHAPTER 26 


MANAGING NUMBERS 
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Have you tried to write programs to handle much information? If so, 
you'll be glad to know Color BASIC has an easy-to-manage way to keep 
track of information. \ 


Assume, for example, you want to write a program that lets you manage 
this information: 


ELECTION RESULTS 


District Votes for Candidate A 
] 143 
2 215 
5) 125 
4 331 
5 442 
6 324 
7 213 
8 115 
9 318 
10 314 
11 223 
12 152 
13 314 
14 92 


Up to now, you've used variables to store information in memory. For 
example, to store the votes of the first three districts, type: 


A = 143 (ENTER 
B = 215 (ENTER 
C = 125 (ENTER 
But there’s a better kind of variable you can use. Type: 
A(i) = 143 (ENTER 
A(Z) = 215 (ENTER 
A(3) = 125 (ENTER 


Each of the above variables has a ‘“‘subscript’’—(1), (2), and (3). Other 
than how they use the subscript, these variables work the same as any 
other variables. To see for yourself, type both of these lines: 


PRINT As Bs C (ENTER 
PRINT A(1)5 A(2) 5 ACB) (ENTER 


Now take a quick look and compare the two programs below. Both work 
the same: Program 1 uses “simple variables”; Program 2 uses “‘subscripted 
variables.” 


PROGRAM 1 


1@ DATA143,» 215,125, 331, 442 
20 DATA 324+ 2131+115,+ 318+ 314 
3@ DATA 223; 152; 314; 92 

40 READA;B;C;+D;sE 

5@ READF:+G+H+I>+J 

GO READK;L>M+N 

7® INPUT "DISTRICT NO. (1-14)"5 2 
75 IF 2:14 THEN 72 

80 IF Z=1i THEN PRINT A "VOTES" 
90 IF Z=2 THEN PRINT B "VOTES" 
100 IF Z=3 THEN PRINT C "VOTES" 


110 IF Z=4 THEN PRINT D "VOTES" 
120 IF Z2=5 THEN PRINT E "VOTES" 
130 IF Z2=6 THEN PRINT F "VOTES" 
140 IF Z=7 THEN PRINT G "VOTES" 
15@ IF Z=8 THEN PRINT H "VOTES" 


| 


16@ IF Z=9 THEN PRINT I "VOTES" 
170 IF Z=1@ THEN PRINT J "VOTES' 
188 IF Z=11 THEN PRINT K "YOTES' 
198 IF Z=12 THEN PRINT L "YOTES" 
200 IF Z=13 THEN PRINT M "YOTES" 
210 IF 2=14 THEN PRINT N "VOTES" 
220 GOTO 70 


PROGRAM 2 


1@ DATA143+ 215+ 1255 331, 442 
20 DATA 324; 213+ 115+ 318+ 314 
30 DATA 223; 152, 314; 92 

40 DIM A(14) 

90 FORX=17T014 

6@ READ A(X) 

70 NEXT X 

80 INPUT "DISTRICT NO(1-i14)"5 2 
85 IF Z > 14 THEN 80 

90 PRINT A(Z) "VOTES" 

190 GOTO 8d 


Program 1 is cumbersome to write. Program 2 is short and simple to write. 
Enter and run Program 2. Here’s how it works: 


Line 40 reserves space for a list of information—called an “array” 
named A—with 14 subscripted items. 


Lines 50 and 70 set up a loop to count from 1 to 14. Line 60 reads all 
14 votes into Array A: 


Actually, this leaves room 
for 15 subscripted items 
when you count 0 as a sub- 


script. 


Tol 


YOUR COMPUTER ’S MEMORY 


ACT)———~> 1439 
A(2Z) ——> 215 


AC(3) — 125 


A(4) — > 331i 
A(3) —+ 442 
A(6) ——~ 324 
ACL) -——— 223 


A(B) 
A(9) 
AC18) ——~314 
A( 11) —> 223 
A(12) ——152 
A(13) ——314 
A(14) — +92 


——115 


ara ti | 


° Line 80 asks you to input a subscript, and Line 90 prints the item you 
requested. 


Now that you’ve stored information in an array, it’s easy to manage it. For 
instance, you can add these lines, which let you change the information: 


refers to the subscript of one 92 INPUT "DO YOU WANT TO ADD TO THIS"$ R# 

of the items. 94 IF R$ = "NO" THEN 8@ 

96 INPUT "HOW MANY MORE VOTES"; X 

97 A(Z) =A(Z) +X 

98 PRINT "TOTAL VOTES FOR DISTRICT" Z "IS 
NOW" A(Z) 


Or you can add these lines to display the information: 
INPUT "DO YOU WANT TO SEE ALL THE TOTALS"; 


The name of the array is A. 
The X or Z in parentheses 


You don’t need to study 
these programs if you’re an- 
xious to move on. We're just 
showing some benefits of us- 
= a R - = 
ing subscripted variables. ie 


S$ 
74 IF S$ = "YES" THEN GOSUB 110 
100 GOTO 72 
110 PRINT "DISTRICT"+ "VOTES" 
12@ FORX=1i17014 
130 PRINT X+ A(X) 
140 NEXT X* 


RETURN 


A Second Array 


Assume you also want to keep track of a second candidate’s votes— 


Candidate B: 
ELECTION RESULTS 
District Votes for Votes for 
Candidate A Candidate B 
1 143 678 
2 215 514 
3 125 430 
4 331 475 
5 442 302 
6 324 520 
7 213 613 
8 115 694 
9 318 420 
10 314 518 
11 223 370 
i [52 412 
13 314 460 
14 92 502 


152 


To do this, add another array to the program. Call it Array B. The following 
program records the votes for Candidate A (Array A) and Candidate B 


(Array B): 
10 DATA 143, 215,125,331, 442 | détafm 
20 DATA 324+ 213,114, 318, 314 A 
30 DATA 223, 152+ 314,9 


40 DATAG78; 514+ 430, 475 HEE | 
50 DATA S20, Gi3, G94, 420; 518 ” Guo 6 
62 DATA 370+ 412+ 460, 502 

Sats Arm 


7® DIM A(14)+,B(14) ——————— 
8@ FORX=1i1T0i4 


908 READ A(X) prods Onna, 
100 NEXT X fi dota 

11@ FORX=17014 

120 READ B(x pLade Onnos 
130 NEXT X ® date 


140 INPUT "DISTRICT NO."5 

145 IF 2 > 14 THEN 140 

15@ INPUT "CANDIDATE A OR B"3 R& 
160 IF RS = "A" THEN PRINT A(2) 
170 IF R$ = "B" THEN PRINT B(2) 
i8@ GOTO i4@ 


DO-IT-YOURSELF PROGRAM 26-1 


Write an inventory program that keeps track of 12 items (numbered 
1-12) and the quantity you have of each item. 


Deal the Cards 


To keep track of 52 ‘‘cards,”” you need to use an array. Erase your program 
and type and run this one: 


40 FORK=1T0O52 
98 C= RND(S2) 
90 PRINT C3 

190 NEXT xX 


The computer deals 52 random ‘‘cards,”’ 
that some of the cards are the same. 


but if you look closely, you see 


To make sure the computer deals each card only once, you can build 
another array—Array T—that keeps track of each card dealt. Add these 
lines: 


> DIM T(S2) 


1@ FORK =1T052 
20 T(K) =X 
30 NEXT X 


The above lines build Array T and put all 52 cards init: T(1) = 1, 1(2) = 2, 
T(3) = 3... 7(52) = 


Then add some lines that ‘erase’ each card in Array T after it’s dealt. Type: 


6@ IF T(C) = @ THEN 50 
B® T(C)=94 


You don’t need a DIM line if 
none of your array items use 
a label higher than 10. 
However, it’s still a good 
idea to put this line in your 


program to reserve just the 
right amount of memory: 
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Now the computer can’t deal the same random card twice. For example, 
assume the computer first deals a two. Line 80 changes T(2)’s value from 2 
to 0. 


Then assume the computer deals another two. Since T(2) now equals 0, 
Line 60 goes back to Line 50 to deal another card. 


Run the program. Note how the computer slows down at the end of the 
deck. It must try many different cards before it finds one that it hasn’t dealt 
yet. 

To play a card game, you need to keep track of which cards have been 


dealt. You can do this by building another array—Array D. Add these lines, 
which store all the cards, in the order they are dealt, in Array D: 


7 DIM D(S2) 
7®@ D(X) = T(C) 
92 PRINT D(X)5 


DO-IT-YOURSELF PROGRAM 26-2 


Add lines to the program so that it displays only your ‘’hand’’—the first 
5 cards dealt. 


Learned in Chapter 26 
BASIC WORD BASIC CONCEPT 
DIM arrays 


Notes 


CHAPTER 27 
MANAGING WORDS 


In the last chapter, you used arrays to manage numbers. Here, you'll use 
arrays to manage words by editing, updating, and printing an entire essay. 


Start with a simple list of words: a shopping list: 


1. EGGS 7. TOMATOES 
2. BACON 8. BREAD 

3. POTATOES 9. MILK 

4. SALT 10. CHEESE 

5. SUGAR 11. FISH 

6. LETTUCE 12. JUICE 


The dollar sign’s the only dif- 
ference between these sub- 
Assign each word to a subscripted variable—this time use a subscripted paler R a. me 


string variable. For example, for the first three items, type: 


S$(1) = "EGGS" (ENTER 
S5$(2) = "BACON" (ENTER 
$$(3) = "POTATOES" (ENTER 


To see how the items are stored, type: 
PRINT S#(1i)+S%(2)+ S$(3) 


Now build a program that reads these words into an array named S$ and 
then displays them: 


5 DIM S#(12) 
@ DATA EGGS» BACON, POTATOES; SALT 

20 DATA SUGAR: LETTUCE+ TOMATOES; BREAD 
30 DATA MILK» CHEESE, FISH» JUICE 

4®@ FOR X = 1 TO ie ; 
50 READ S$(X) heads Hata ile Dray 5 $ 

6® NEXT X 

70 PRINT "SHOPPING LIST:" 

8@ FOR X = 170 i2 


90 PRINT X3 S#(X) | prise Oona. § 3 


100 NEXT X 
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DO-IT-YOURSELF PROGRAM 27-1 


Add some lines to the above program so that you can change any item 
on this list. 


DO-IT YOURSELF PROGRAM 27-2 


Here is a program that uses an array to write song lyrics. 


DIM A#(4) 
PRINT "TYPE 4 LINES" 
Want to compose music? FOR X =,1 TO 4 ~ 
Look up “Music Composer’’ INPUT A$(X 
in the “Sample Programs” NEXT X 
appendix. ~ CLS 
PRINT "THIS IS YOUR SONG:" 
PRINT 
FOR X = 1 T0 4 
PRINT Xs " "3 AS(X 
190 NEXT X 


Add some lines so that you can revise any line. 


Haven't heard of ward pro- 
cessing? It’s a kind of pro- 
gram that lets you type ‘and 
store information, make 
changes to it, and print it out 
on demand. 


Writing an Essay 
(...A Novel, Term Paper .. .) 


Now that you’ve learned how to use string arrays, it will be easy to write a 
program that stores and edits what you type. Type this program: 


i CLEAR 1000 

S DIM A$(5@) 

19 PRINT "TYPE A PARAGRAPH" 

2@ PRINT "PRESS </> WHEN FINISHED" 


Need a refresher on some of 
this? CLEAR is in Chapter 8 


and INKEY$ is in Chapter 11. 30 X=1 
a 40 AS = INKEYS 

50 IF A$ = "" THEN 4@ 
62 PRINT As; 
7®@ IF AS = "/" THEN 118 
BO AS(X) = A(X) + AS 
90 IF A$ = ",." THEN K = K + I 
180 GOTO 4@ 
1i¢@ CLS 
1208 PRINT “YOUR PARAGRAPH: " 
130 PRINT 


140 FOR Y = 1 TO X 
150 PRINT A$(Y)3 
160 NEXT Y 


Run the program. To see how each sentence is stored, type these lines: 


PRINT A$(1) (ENTER 
PRINT A$(2) 
PRINT A$(3) CENTER 


Here’s how the program works: 


Line 1 clears plenty of string space. 
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Line 5 saves room for an array named A$ that may have up to 50 
sentences. 


Line 30 makes X equal to 1. X will be used to label all the sentences. 


Line 40 checks to see which key you are pressing. If it is nothing (’ “’), 
Line 50 sends the computer back to Line 40. 


Line 60 prints the key you pressed. 


Line 70 sends the computer to the lines that print your paragraph when 
you press the ‘‘/”" key. : 


Line 80 builds a string and labels it with number X. X is equal to 1 un- 
til you press a period (.). Then Line 80 makes X equal to X + 1. 


For example, it the tirst letter you press is “R”’ 
A$(1) EQUALS “R”. 
If the second letter you press is “O”, 


A$(1) EQUALS A$(1) - WHICH IS “R’ + “O” 
OR 
“RO”. 


Assume that when A$(1) equals ROSES ARE RED, you press a period. 
A$(1) then equals the entire sentence: ROSES ARE RED. The next letter 
you press is in A$(2). 


Lines 140-160 print your paragraph. 


DO-IT-YOURSELF CHALLENGER PROGRAM 27-3 


Here’s a tough one (but it can be done!) for those intrigued with word 
processing. Change the above program so that you can: 


1. Print any sentence 


2. Revise any sentence 


You may need to review the challenger program in Chapter 12. Our 
answer's in the back. 


Using the Printer 


If you have a printer, connect it now by plugging it into the jack marked 
SERIAL I/O. Turn on the printer and insert paper. The manual that comes 
with the printer shows how. 
Ready? Type this short program: 

12 INPUT At 

20 PRINT # - 2) At 


Now type: 
LLIST (ENTER) 


If your program doesn’t list on the printer, be sure the printer is on, 
“on-line,” and connected to your keyboard. Then type LLIST 
again. 
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Having trouble getting into 
this mode? Read the end of 
Chapter 1. 


All the letters in RUN should 
appear in regular (not re- 
versed) colors. 


If you have a Deluxe Color 
Computer, you can get true 
lower-case letters (rather 
than reversed letters) to ap- 
pear on your screen. See 
Introducing Your Deluxe 
Color Computer. 
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Run the program and watch the printer work. PRINT # - 2, tells the 
computer to print, not on the screen, but on device # - 2, which is the 
printer. Be sure to type a comma after the -2, or you get a syntax error. 


Press the and (QO) (zero) keys simultaneously and release them so 
that the letters you type appear in reversed colors on your screen (green 
with a black background). You are now in an upper- lowercase mode. The 
reversed colored letters are actually lowercase (noncapitalized) letters. 


To type a capital letter, use the (SHIFT) key as you do with a typewriter. It 
appears in regular colors. 


Run the program, using the (SHIFT) key so that the word RUN is capital- 
ized. Input a sentence with both upper- and lowercase letters. Type: 


MY PRINTER PRINTS LOWERCASE LETTERS (ENTER) 


DO-IT-YOURSELF PROGRAM 27-4 


Look at the ‘’Writing an Essay”’ program earlier in this chapter. Change 
Lines 140-160 so that the paragraph prints on the printer rather than 
the screen. 


Learned in Chapter 27 
BASIC WORDS BASIC CONCEPT 


LLIST string arrays 
PRINT # - 2 


Notes 


CHAPTER 28 


SORTING 


Any file clerk knows it’s easier to find information that’s sorted alphabeti- 
cally. Type this program and run it, until you’re convinced the computer 
can alphabetize: 


10 INPUT "TYPE TWO WORDS" At» BS 

20 IF AS * BS THEN PRINT A# " COMES BEFORE " BS 

30 IF AS > BS THEN PRINT A% " COMES AFTER " BS 

4@ IF A = BS THEN PRINT "BOTH WORDS ARE THE 
SAME" 

98 GOTO 16 


With strings, the greater than (>), less than (<), and equal (=) signs have a 
new meaning. They tell which of two strings comes before the other in 
alphabetical sequence: 


< precedes alphabetically 

<= precedes or is the same alphabetically 
> follows alphabetically 

>= follows or is the same alphabetically 
= is the same 


Since the computer can alphabetize, it’s easy to write a sorting program. 
Type and run this program, which sorts 5 words: 


10 DIM A$(5) 
20 FORI=1i1T0O5 
3@ INPUT "TYPE A WORD" § AS(I) 


40 NEXT I 

52 X= 90 You can easily make the 

6G®@ K=X#1 computer alphabetize more 

70 IF ¥>5 THEN GOTO 79a words by changing the 5 to 
WvWyouvrwu Say, 100, in Lines 10, 20, 70, 

82 IF A$(X)="ZZ2" THEN GO sd 90. 


90 FORY=1i1TOS 

190 IF AS(Y) =< AS(X) THEN X=Y 
110 NEXT Y 

120 PRINT AS$(X) 

130 A$(X)="Zz" 

140 GOTO 5a 
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To see how the program works, delete Line 120 and add the following 
lines. (These lines only show what the program does—they have nothing to 


do with sorting.) 


120 
2 CLS 
45 CLS 


85 Yr! 


195 PRINT @ 15+32%(Y-1) + ABCX) 
135 GOSUB 580 


500 jFORI 


Si@ PRINT @ @+32*(1I-1) sAS(1) 5" * 4 


520 NEXT I 


9308 RETURN 


iToOS 


Run the program. Too fast? Type this line. It slows down the program so 
you can see what's happening: 


107 FORT = 1 T0600: NEXT T 


Now fun the program again. Input these words and watch carefully: 


MICHAEL 
TRAVIS 
DYLAN 
ALEXTIA 
SUSAN 


Look at Column 2. See how the first name changes from Michael to Dylan 
to Alexia. Next, notice what happens to Alexia in the first column. Alexia 


becomes ZZ. 


This illustrates how the program sorts the first and second words: 


TRAVIS 
DYLAN 
ALEXIA 
SUSAN 


MICHAEL 
TRAYIS 
DYLAN 


SUSAN 


ALEXIA 
TRAVIS 
DYLAN 
22 


SUSAN 


MICHAEL ALEXIA 
TRAVIS 
DYLAN 


SUSAN 


FIRST WORD 


MICHAEL 
TRAVIS 
DYLAN 
ALEXIA 
SUSAN 


MICHAEL 
TRAVIS 
DYLAN 
ALEXIA 


SECOND WORD 
MICHAEL ALEXIA 


MICHAEL ALEXIA 
TRAVIS 
DYLAN 


ZZ 


MICHAEL 
TRAVIS 


ALEXIA 
SUSAN 


MICHAEL ALEXIA 
TRAVIS 


- DYLAN 


LE 
SUSAN 


MICHAEL ALEXIA 
TRAVIS 


aed 
SUSAN 


MICHAEL ALEXIA 
TRAVIS DYLAN 


Here’s how the program works: 
Lines 50 and 60 set X’s value. At the start, X is 1. 


Then Lines 90-110 compare A$(X)—Michael—with every other name in 
Array A$ until a word is reached that precedes Michael—Dylan. 


Line 100 then makes A$(X) equal to Dylan’s place in the array: A$(3). 
When Dylan is compared with the fourth word—Alexia—A$(X) becomes 
A$(4). 


When all the words have been compared with one another, Line 120 
displays the first sorted word: Alexia. Line 130 changes Alexia’s position— 
A$(4)—to ZZ. 


At this point, Lines 50 and 60 make X equal 1 again. A$(X)—Michael—is 
compared with other names in the array to find the second sorted word. 


When Michael’s place in the array becomes ZZ, Line 60 sets X to 2. Then, 
A$(X)—which is now Travis—is compared with all the names in the array 
to find the next sorted word. 


When the array’s values are all changed to ZZ, Line 70 ends the program. 


DO-IT-YOURSELF PROGRAM 28-1 


Using this sort routine, change the program from the last chapter so 
that it alphabetizes your books by title, author, or subject. 


This chapter shows a simple way to sort. If you need to sort many items, 
you may want to research faster sorting methods (such as the bubble sort). 


Learned in Chapter 28 
BASIC SYMBOLS 


Notes 
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CHAPTER 29 
ANALYZING 


We’re only using three dis- 
tricts to keep it simple. 


We’re calling them Candi- 
dates 1 and 2 this time rather 
than Candidates A and B. 
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If you have more than 4K RAM, you have an easy way to analyze informa- 
tion. By giving each item more than one subscript, you can see it through 
different dimensions. 


Take the voting program from Chapter 19. Here’s the information. (We’re 
using only the first three districts to make the program simple.) 


ELECTION POLL 


District Votes for Votes for 
Candidate 1 Candidate 2 
1 143 678 
2 ZAS 514 
3 125 430 


In Chapter 19, you stored the above “items’’ (groups of votes) in two 
one-dimensional arrays: Arrays A and B. In this chapter, you'll store them 
in one easy-to-manage two-dimensional array: Array V. 


The following program puts the items in Array V. 


5 DIM V(3s2) 
1@ DATA 143, G7B+ 215, 5id+ 125+ 430 
20 FOR D= i170 3 
30 FOR C = 1702 
(2 READ ¥(DsC) 
90 NEXT C 
60 NEXT D 


7@ INPUT "DISTRICT NO. (1-3)"5 D 
8@ IF D« 1 OR D >} 3 THEN 70 

9@ INPUT "CANDIDATE NO. (1-2)"5 C 
100 IF C < @ OR C >} 2 THEN 9@ 

110 PRINT Y¥(D;C) 

120 GOTO 70 


Type and run the program. Notice that each item is labeled by two 
subscripts. 


Here’s how the program works: 


Line 5 reserves space in memory for Array V. Each item in Array V can have 
two subscripts: the first, no higher than 3; the second, no higher than 2. 


Lines 20-60 read all the votes into Array V, giving them each two 
subscripts: 


. The first subscript is the district (Districts 1-3). 
° The second subscript is the candidate (Candidates 1-2). 


YOUR COMPUTER’S MEMORY 
YC1sl)—+143 YC 1+2)-—+678 


V(291)—215 YV(292)—>514 
U(391)—e125 Y(3+2)-—*430 


For example, 678 is labeled V(1,2). This means 678 is from District 1 and is 
for Candidate 2. 


With all the votes in a two-dimensional array, it’s simple to analyze 
them—in two dimensions. By adding these lines, for example, you can 
print all the votes in two ways: by district and by candidate. 


(Delete Lines 70-120 first) 


7® INPUT "TYPE < 1 > FOR DISTRICT OR et See es 
< 2 > FOR CANDIDATE'S R lines? 70 ENTER) Deletes 
80 IF R < 1 OR R > 2 THEN 70 Line 70. 


190 ON R GOSUB 1000; 2000 
118 GOTO 70 


1900 INPUT "DISTRICT NO(1-3)"5 D 

19i1@ IF D#¢ 1 OR D +} 3 THEN 1800 

1915 CLS 

10920 PRINT @ 132s "VOTES FROM DISTRICT" D 
1030 PRINT 

1940 FOR C = 1702 

1950 PRINT "CANDIDATE" C+ 

1960 PRINT Y(D+C) 


2000 INPUT “CANDIDATE NO(i-2)"3 C 
2010 IF C < 1 OR C > 2? THEN 2000 


2020 PRINT @ 132+) "“YOTES FOR CANDIDATE" C 


2040 FOR D = i TO 3 

2950 PRINT "DISTRICT" D; 
2060 PRINT ¥(D>C) 

2070 NEXT D 

2080 RETURN 
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The Third Dimension 


You can continue with as many dimensions as you want. You're limited 
only by how much information you can fit into the computer’s memory. 


If you are truly an analytical 
type, youre going to love 
the rest of this chapter. If 
you're definitely NOT that 


type, skip it! , . ; : : . 
Add a third dimension to Array V: interest groups. Here’s the information: 


VOTES FROM INTEREST GROUP 1 


Candidate 1 Candidate 2 
District 1 143 678 
District 2 215 514 
District 3 125 430 
VOTES FROM INTEREST GROUP 2 
Candidate 1 Candidate 2 
District 1 525 54 
District 2 318 157 
District 3 254 200 
VOTES FROM INTEREST GROUP 3 
Candidate 1 Candidate 2 
District 1 400 119 
District 2 124 300 
District 3 75 419 


To get all this into your computer’s memory, erase your program and type 
39 DIM ¥(3+3+2) 
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190 DATA 143+ G78+ 215% 514, 125, 430 
20 DATA S25+ 34+ 318+ 157% 254, 200 
30 DATA 400+ 119+ 124; 300, 75% 419 
® FOR G=i1T0 3 
o@ FOR D = 1 7T0 3 
@ FOR C = i T0 2 
7@ READ V(G+D+C) 
® NEXT C 
®@ NEXT D 
i@ INPUT "INTEREST GROUP NO (1-3)"5 G 
120 IF G ¢ i OR G@ + 3 THEN 1108 
13@ INPUT "DISTRICT NO. (1-3)5 D 
140 IF D<¢ i OR D } 3 THEN 138 
150 INPUT "CANDIDTE NO. (1-2)"5 C 
160 IF C ¢ 1 OR C > 2 THEN 1508 
170 PRINT V(G+D:C) 
18@ GOTO 110 


Run the program and test the subscripts. Lines 40-100 read all the votes 
into Array V, giving them each three subscripts: 


» The first subscript is the interest group (Interest Groups 1-3). 


» The second subscript is the district (Districts 1-3). 
» The third subscript is the candidate (Candidates 1-2). 


YOUR COMPUTER’S MEMORY 


YCLlslsli—~143 
VYCls2s1)—~215 
UCT eda T1225 
V(2+1.1)->525 


Y(2+2+1)-+318 
Ut2 13 51)9—254 
UC 3+1l+1)~400 
VCS 1291) 1E24 
ACS se) ZS 


YClsls»2)—-~678 
UCLl+2+2)—~514 
Yt1+3+2)—~430 
Vt(Z+1s2)—-54 

WO2 92929 -F 15-7 
Y(2+3+2)—~200 
YC S+1+2)—~119 
YV(3+2+2)—~300 
YU(3+3+2)—~419 


For example, 678 is now labeled V(1,1,2). This means 678 is from Interest 


Group 1, is from District 1, 


and is for Candidate 2. 


To take advantage of all three dimensions, delete Lines 110-180 and type: 
11®@ PRINT: PRINT "TYPE £13 FOR GROUP" 


12@ PRINT "<2 


> FOR DISTRICT OR <32 FOR 


CANDIDATE" 


13@ P = 224 


INPUT R 


140 ON R GOSUB 1600129000 ,3000 


150 GOTO 118 


1900 INPUT "GROUP(1i-3)"5 G 
191@ IF Gti OR G23 THEN 1009 


1920 CLS 
1030 PRINT 
1940 PRINT 


1930 PRINT 


DuinmMi aww 


102+ "VOTES FROM GROUP" G 
i68, "CAND. i" 
176+ "CAND, 2" 


1 TO 2 
P + 8#C+ YV(GrD:C)5 


32 


2000 INPUT “"DISTRICT(1-3)"35 D 
2010 IF Dei OR D?3 THEN 2000 


hh 
L=] 
ul 
L—] 
vu 
al 
_— 
= 
Ho 
@ uw i ff ww 


2130 NEXT G 
2140 RETURN 


102, "VOTES FROM DIST." D 
168+» "CAND. i" 

176+ "CAND, 2" 

i TO 3 

P+ "GROUP" G 

1 TO 2 

P + 8#C+V(GsD+0)5 


32 


3000 INPUT "CANDIDATE(1-2)"5 C 
3010 IF C#i OR C2 THEN 3000 
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oa 


192, "VOTES FOR CAND,.' 
168, "DIST. i" 
176, "DIST. 2" 
184, "DIST. 3" 


3070 FOR G i TO 3 
3080 PRINT Py. “GROUP & 
30990 FOR D 1 TO 3 


Ww 
Lb] 
on 
Ss 
~ 
a 
me 
4 
o 
Muff Mw fa 


P + 8*¥D, ¥(G+D:+C)3 


3120 P= P+ 32 


Run the program. You can now get three perspectives on the information. 


DO-IT-YOURSELF PROGRAM 29-1 


Write a program to deal the cards using a two-dimensional array. 
Make the first dimension the card’s suit (1-4) and the second dimen- 
sion the card’s value (1-13). 


Learned in Chapter 29 
BASIC CONCEPT 
Multidimensional arrays 


Notes 
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SECTION IV 


BACK TO BASICS 


This section sends you back to school. You'll learn some new Extended 
Color BASIC words that will help you refine and polish your programs. 
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CHAPTER 30 
THE NUMBERS GAME 


Your “extended” Color Computer includes several advanced mathematical 
functions. This chapter gives a rundown of each function and shows the 
ways to use it. 


00600 
ae, 


Before continuing, however, you need to know about a couple of functions 
and definitions discussed below. 


Exponentiation 
C4) 


Quick! What's 1.5 squared? How about 77 cubed? If you don’t know, ask 
the computer. Anytime you want to raise a number to the nth power, follow 
this format: 


number (£) power 


number is the base (the number you wish to raise to the nth 
power). It may be any numeric expression. 


up-arrow is generated by pressing 2). 


power is the exponent to which the base is raised. It may be any nu- 
meric expression. 


Note: Exponentiation has precedence over other operators. For exam- 
ple, if the computer calculates — 2 up-arrow 2, the result is a negative 
number. To raise — 2 to the 2d power ‘‘correctly’’ (resulting in positive 
number), enclose — 2 in parentheses. 


Start with 77 cubed. After looking at the syntax block, can you give the 
command? Your answer should be 456533.002. 


If your screen looks like this, you’re off to a good start: 


PRINT 77 4 3 
456533.002 
OK 


Try raising 10 to the 10th power. The screen displays: 
1,@00090001E+19 


Don’t worry about the 
“002.” This is called a 
“round-off error’ and is 


necessary because the 
computer isn’t the ‘‘per- 
fect’ calculator. But then, 
no machine is. 
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Trigonometry is the investi- 
gation of the relationship 


of a triangle’s sides to its 
angles. 
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Since 10,000,000,000 has more than 9 significant digits, the computer 
went into the E notation explained in Chapter 13. 


How about 100 to the 100th power? Does the screen display an ?OV ER- 
ROR (overflow)? This means that the answer is too large for the computer 
to handle. Anything outside the range — 10** to + 10** causes an overflow 
error. 


DO-IT-YOURSELF PROGRAM 30-1 


Write a short program that displays the square of each whole number 
from 1 to 10. 


SQR 


SQR enables you to find the square root of a number. Here is its syntax: 


SQR (number) 
number is zero or any positive number. 


For example, if you want the square root of 100, type: 
PRINT SOR( 100) 
and you'll find out (if you didn’t already know) that the answer is 10. 


DO-IT-YOURSELF PROGRAM 30-2 


Write another short program to display the square root of every tenth 
number from 100 to 0. 


TRIG Functions 


Look at this triangle. You’ll be using it throughout the discussion of trigon- 
ometric functions. 


AB 


SA 


AA AC 
SB 


Trigonometry has many practical applications. For instance, imagine that 
your triangle is actually the roof of a house you’re building. Trigonometric 
functions can help you determine either the length of the rafters or the slope 
of the roof (the ‘‘pitch’’). So if math turns you off but building things turns 
you on, this section might be just what you’re looking for. 


Notice that we’ve labeled angles with the prefix A and sides with the prefix 
S. Angle A, for example, is AA; the side opposite it is SA. 


Using the triangle, we can define the common trig functions in the follow- 
ing manner: 


Sine of AA = SIN (AA) = SA/SC 
Cosine of AA = COS (AA) = SB/SC 
Tangent of AA = TAN (AA) = SA/SB 


Degrees v Radians 


To define an angle, you may use either of two units of measurement. The 
more common unit is the degree; the ‘‘more technical” unit is the radian. 


Your computer assumes all angles are measured in radians. Since radians 
may be somewhat alien to you, you can convert them to degrees (and vice 
versa) this way: 


Degrees to Radians: Degrees / 57.29577951 
Radians to Degrees: Radians * 57.29577951 


This chapter’s sample programs include a “converter” that takes the de- 
grees you input and automatically converts them into radians (and vice 
versa for some purposes). 

SIN 


That’s sine—pronounced like “sign.” 
Its syntax is: 


SIN (angle) 


angle is angle’s size in radians. 


Given the length of one side and the sizes of two angles, you can use SIN 
to determine the lengths of the other sides. 


Enter and run the following program, inputting any values. 


° CLS 

1@ INPUT "WHAT IS ANGLE A (AA)"S$ AA: 
IF AA*<=0 OR AA?=180 THEN 100 

20 INPUT "WHAT IS ANGLE B (AB)"5 AB: 


IF AA «<=@ OR AB 3>=18@ THEN 180 In the Sample Program 

3@ INPUT "WHAT IS SIDE C (SC)"$ SC: section is a program called 
IF SC <=0 THEN 100 Drawing Triangles. That 

A program draws triangles 

4@ AC = 18@-(AA+AB) VALUE OF ANGLE AC based upon sides and an- 


5@ IF (AA+AB+AC) < > 180 THEN i100 gles that you specify 
‘TRIANGLE=180 DEGREES 

6@ AA=AA/S7,.29577951: AB=AB/57.29577951: 
AC=AC/57.29577951 
’ CONVERT DEGREES TO RADIANS 

70 SA=((SIN(AA))/(SIN(AC))) * SC: IF SALO 
THEN 1900 

88 SB=((SIN(AB))/(SIN(AC))) * SC: IF SBL@ 
THEN 100 

94 PRINT "SIDE A (SA) IS" SA "LONG": 
PRINT "SIDE B(SB) IS" 
SB "LONG": GOTO 1@ 

100 PRINT "SORRY+ NOT A TRIANGLE. 
TRY AGAIN": GOTO i@ 
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When the computer asks you for AB and AC, input degree-measures of the 
angles. If you enter a negative number or a number that is greater than or 
equal to 180, the computer goes to Line 100. It then prints the message and 
again asks for the sizes. If you enter a negative number for SC, it does the 
same thing. 


Since you don’t know the size of AC, the computer automatically computes 
this in Line 40. If the sum of the three angles is not equal to 180 degrees, 
the computer takes appropriate action in Line 50. Line 60 converts degrees 
to radians so the computer can do the sine calculations. 


Sine Waves 


You may have seen sine waves before. They're used to indicate AC power 
and other electrical conditions. Run the following program to see a “‘hori- 
zontal scrolling’ sine wave (and check the Sample Program section for a 
more conventional sine wave). 


1@ FOR A = 188 TO -179 STEP-10 
= A / 37.29577951 “RADIANS 
3@ CL = SIN(RD) * 14 + 16.5 
‘CL = COLUMN POSITION 
4@ PRINT TAB(CL)3"5" ‘PLOT SINE OF RD 
5@ NEXT A 
6@ GOTO Gd 


COs 


The cosine function is related to the sine function and has the following 
syntax: 


COS (angle) 


angle is angle’s size in radians. 


Given the lengths of two sides and the size of one angle, you can use cosine 
to determine the length of a triangie’s third side, as shown here: 


5 CLS 
1@ INPUT "WHAT IS ANGLE C (AC)"3 AC: 
IF AC<=@ OR AC>=180 THEN 190 
20 AC=AC / 57.29577951 
‘CONVERT DEGREES TO RADIANS 
30 INPUT "WHAT IS SIDE A (SA)"$ SA: 
IF SA<=0 THEN 190 
4® INPUT "WHAT IS SIDE B (SB)"3 SB: 
IF SB=<@ THEN 190 
50 sc = ((SA 4+ 2)4+(5B 4 2))-(2#(SA#SB* 
COS(AC))): IF SC<® THEN 100 
G@ PRINT "SIDE C (SC) IS" SQR(SC) "LONG": 
GOTO 19 
100 PRINT "SORRY» NOT A TRIANGLE. 
TRY AGAIN": GOTO 10 


Notice that the program works almost the same as the SIN program except 
for the use of exponentiation (up-arrow) in Line 50 and SQR in Line 60. 
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DO-IT-YOURSELF PROGRAM 30-3 
Cosine can make waves of its own. Rewrite the ‘‘Sine Wave’ program 


so that it plots COS(RD) instead of SIN(RD). Use C (for cosine) to display 
the wave made by COS. What is the difference between the two? 


TAN 


The third trigonometric function, TAN, lets you calculate the tangent of an 
angle. Here is its syntax: 


TAN (angle) 


angle is angle’s size in radians. 


You can use TAN to determine, among other things, one side of a triangle, 
given another side and one angle. 


Enter and run this program: 


5 CLS 

1@ INPUT “WHAT IS SIDE B (SB)"s5 SB: 
IF SB<=@ THEN 100 

2@ INPUT "WHAT IS ANGLE A (AA)"S AA: 
IF AA*S=@ OR AAX=180 THEN 100 

3@ AA=AA/5S7.29577951 ‘CONVERT DEGREES 
TO RADIANS 

48 SA=SB*(TAN(AA)): IF SA<=8 THEN 100 

3@ PRINT "SIDE A (SA) IS" SA "LONG": 
GOTO 18 

1@@ PRINT "SORRY+s NOT A TRIANGLE. 
TRY AGAIN": GOTO 12 


The key to this program, of course, is Line 40, where the tangent of AA is 
multiplied by the length of SB to determine the length of SA. 


ATN 
ATN (arctangent) is the inverse of TAN and has the following syntax: 


ATN (angle) 


angle is angle’s size in radians. 


The following program uses ATN and TAN to calculate two unknown angles 
of a triangle when two sides and one angle are known. 


10 CLS 

20 INPUT "WHAT IS SIDE A (SA)"3 SA: 
IF SA<=@ THEN 159 

3@ INPUT "WHAT IS SIDE C (SC)"35 SC: 
IF SC*#=@ THEN 1508 

40 INPUT "WHAT IS ANGLE B (AB)"3 AB: 
IF AB<=0 OR AB?=18@ THEN 158 

59@ X=(180-AB) ‘AA+AC=180-AB 

60 K=X/57.29577951 ‘CONVERT DEGREES 
TO RADIANS 

70 Y=((SA-SC)/(SA+SC) )*#TAN(X/2) 
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B® Z=ATN(Y) 

90 AA=(X/2)+(Z) 

100 AC=(K/2)-(2) 

119 AA=AA*S7.29577951 ‘CONVERT 
RADIANS TO DEGREES 

120 AC=AC#57,29577951 ‘CONVERT RADIANS 
TO DEGREES 

13@ PRINT "ANGLE A (AA) IS" AA "DEGREES" 

14@ PRINT "ANGLE C (AC) IS" AC "DEGREES": 
GOTO 28 

150 PRINT "SORRYs NOT A TRIANGLE, 
TRY AGAIN": GOTO 20 


TAN ((AA-AC)/2) is equal to ((SA-SC)/(SA + SC)) * TAN ((AA + AC)/2). Also 
notice that it was necessary to convert the ‘‘computer’s’’ radians to ‘‘your’’ 
degrees (Lines 110 and 120). 


LOG 


LOG returns the natural logarithm of a number. This is the inverse of EXP. 
so X =LOG(EXP(X)). Here is LOG’s syntax: 


LOG (number) 


number is greater than zero. 


The logarithm of a number is the power to which a given “‘base’”’ must be 
raised to result in the number. ‘‘Logs’”’ are useful in scientific and mathe- 
matical problems. In the LOG function, if you omit the base, the computer 
assumes you are specifying Base e (2.718281828). 


To find the logarithm of a number to another base, B, use this formula: 
log base B (x) = log e (x) / log e (B) 


For example, LOG (32768)/LOG(2) returns the logarithm to Base 2 of 
32768. (It returns the power to which 2 is raised to get 32768.) 


Try these: 
PRINT LOG (1) (ENTER 
PRINT LOG (19) (ENTER) 
PRINT LOG (2.718281828) (ENTER) 


DO-IT-YOURSELF PROGRAM 30-4 
Compute the LOG of each of the following numbers: 
a) 1003 b) 74.9865 c) 3.354285 


DO-IT-YOURSELF PROGRAM 30-5 


Compute the log to Base 10 of each of the following numbers: 
a) 1 b) 10 c) 100 
d) 500 e) 0.1 f) 1001 


log ex 
Hint: log 10 x = 
loge 10 


EXP 


The EXP function returns the natural exponential of a number (enumber ). 
EXP is the inverse of LOG; therefore, X = EXP(LOG(X)). Here is EXP’s 
syntax: 


EXP (number) 


number is less than 87.3365. 


Run this program to see EXP at work. 


18 CLS 

20 INPUT "ENTER XK" 
30 PRINT "EXP(X)=" 
408 GOTO 20 


we we 


x 
EXP(X) 


FIX 


It's impressive when your computer carries a number out to 9 significant 
digits, especially when 8 of those numbers are to the right of the decimal 
point. 


However, sometimes you might not want all those numbers; you may want 
only the whole-number portion (the number to the left of the decimal point). 
FIX lets you get this whole number by simply chopping off all digits to the 
right of the decimal point. Here is FIX’s syntax: 


For example, type: 
PRINT FIX (2,.2643951) (ENTER 
The computer displays: 


2 
OK 


Here’s a program that breaks a number into its whole and fractional 
portions. 


i@ CLS 
20 INPUT "A NUMBER LIKE X.YZ"3 X 
30 W=FIX(X) 

4@ F=ABS(X)-ABS(W) 

50 PRINT "WHOLE PART="3 W 

G@ PRINT "FRACTIONAL PART="3 F 


7@ GOTO 208 
DEF FN When you use this feature, 
, ‘ . don’t forget to use the DEF 
Extended Color BASIC has one numeric function, DEF FN, that is un- FN pba before you 
like any others we’ve talked about so far. DEF FN lets you create your try to execute the function 
own mathematical function. You can use your new function the same it defines. Otherwise a 2UF 


ERROR (undefined func- 
tion) occurs. 


as any of the available functions (SIN, COS, TAN, and so on). Once 
you've used DEF FN to define a function, you may put it to work in 


177 


your program by attaching the prefix FN to the name you assign to the 
new function. Here is the syntax for DEF FN: 


DEF FN name (variable list) = formula 
name is the name you assign to the function you create. 


variable list contains one ‘‘dummy variable’ for each vari- 
able to be used by the function. 


formula defines the operation in terms of the variables given 
in the variable list 


Note: Variable names that appear in formula serve only to define 
the formula; they do not affect program variables that have the 
same name. You may have only one argument in a formula call; 
therefore, DEF FN must contain only one variable. 


You may use DEF FN only in a program, not in the immediate 
mode. 


For example, one math operation you've had to use several times in 
this chapter is degree-to-radian conversion. Wouldn’t it be nice if the 
computer did that for you? 


If you'll change the sample program we used for SIN, you'll see how 
to create a DEF FN that converts degrees to radians. 


7 DEF FNR(X)=X/57,.29577951 
60 AA=FNR(AA): AB=FNR(AB): AC=FNR(AC) 


You can see right away how much typing this saves, since you had to 
enter 57.29577951 only once. Whenever FNR is called into use, the 
computer automatically inserts whatever values you have used and 
performs the prescribed operation. 


DO-IT-YOURSELF PROGRAM 30-6 
Use DEF FN to: 


1. Convert radians to degrees. 


2. Create a math function that cubes numbers. 


You'll find a quick reference table of many useful mathematical formu- 
las (plane geometry, trig, and algebra) in the Appendix. 
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Learned in Chapter 30 


BASIC WORDS CONCEPTS 


SQR Computing a square root 

SIN Computing the sine; 
Determining two unknown sides of a trian- 
gle, given two angles and a side. 

COs Computing the cosine; 
Determining the unknown side of a trian- . 
gle, given two sides and an angle 

TAN Computing the tangent; 
Determining the unknown side of a trian- 
gle, given one side and an angle 

ATN Computing the arctangent; 
Determining two unknown angles of a tri- 
angle, given two sides and the third angle 

LOG Computing the natural logarithm of a 
number 

EXP Computing the natural exponential of a 
number 

FIX Rounding a decimal number to a whole 
number 

DEF FN Defining a function 


Notes 
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CHAPTER 31 


IT DON’T MEAN A THING 
IF IT AIN’T GOT THAT 
STRING 


Earlier, we discussed string at great length. Now it’s time for informa- 
tion about more of Extended Color BASIC’s string functions. 


STRING$ 


Zing goes STRING$ ... and when you use it to create a string of char- 
acters, you can produce graphs, tables, and any other text display. The 
syntax of STRING$ is as follows: 
STRING$ (length,character) 
length is a number from 0 to 255. 


character is either a string expression for a character or a 
numeric expression for an ASCII code. If you use a string 
constant, enclose it in quotes. 


The number of characters displayed depends on the number you spec- 
ify in length. Which characters are used depends on either the charac- 
ter or the ASCII code you specify. See the Appendix for a complete list 
of ASCII character codes. 


For instance, jazz up your overworked ‘‘Lines’’ program by changing it 
as follows: 


2 CLS 

G6 X# = STRINGS (13;"*") 

7 PRINT @ 9SG+ K$5 "LINES"3 XK 
9 FOR X = 1 TO 1000: NEXT X 
1@ PMODE 351 

15 PCLS 

2@ SCREEN isi 

25 LINE (@+0)-(255,191) +PSET 
3@ LINE (@+191)-(255 +0) »PSET 
4@ GOTO 4@ 


Line 6 assigns X$ the value STRINGS (13,’*’’)}—a string of 13 asterisks. 


Line 7 tells the computer to print (starting at Print Screen Location 96) 
X$, then the word LINES, followed by X$ again. (See the Text Screen 
Worksheet in the Appendix.) Since X$ equals 13 asterisks (*), those 
characters are printed before and after LINES. 


What? You want to spruce up the title even more! All right, add these 
two lines: 


8 Y$ = STRING$(31+42): PRINT @ 384;‘% 


This time, you tell the computer to display the character represented 
by ASCII Code 42. And, as you probably guessed, ASCII Code 42 rep- 
resents an asterisk. 


DO-IT-YOURSELF PROGRAM 31-1 
Have you ever written lists to check off jobs that you or other peo- 


ple have to do? 
Using STRINGS, write a program that creates a check-off list. 


| Think | See Some-String Ahead! 
(INSTR) 
If you want to search through one string for a second string, use 
INSTR. 
INSTR’s syntax is: 


INSTR (position,search-string, target) 


position specifies the position in the search-string at which 
the search is to begin (0 to 255). If you omit position, the 
computer automatically begins at the first character. 


search-string is the string to be searched. 


target is the string for which to search. 


INSTR returns a O if any of the following is true: 


° The position is greater than the number of characters in the 
search-string. 

° The search-string is null. 

. It cannot find the target. 


Watch the way INSTR works in the following program: 
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5S CLEAR 500 


CLS 

INPUT "SEARCH TEXT" $S$% 

INPUT "TARGET TEXT" 5T$ 

C=@: P=1i ‘P = POSITION 

F = INSTR(P+S$+T#) 

IF F=@ THEN GO 

C=C+i 

PRINT LEFT# (S#+F-1)+STRINGS(LEN(TS$) + 
CHR#$(128)) + RIGHT#(S$+LEN(S$) -F- 
LEN(T$)+1) 

P=F+LEN(T$) 

IF P< =LEN(S$)-LEN(T$)+1 THEN 30 
PRINT "FOUND"$ C$ "OCCURRENCES" 


The following is a sample run. However, you can input whatever text 
you need. 


SEARCH TEXT? YOU SHOULD TRY TO USE YOUR TRS- 


BO 


COLOR COMPUTER AS MUCH AS POSSIBLE, 


TARGET TEST? TR 

YOU SHOULD #@#Y TO USE YOUR TRS-8% COLOR 
COMPUTER AS MUCH AS POSSIBLE 

YOU SHOULD TRY TO USE YOUR ##@S-80 COLOR 
COMPUTER AS MUCH AS POSSIBLE 

FOUND 2 OCCURRENCES 


OK 


Here’s what happens: 


i 


Line 15 assigns S$ (search) the value, YOU SHOULD TRY 
TO USE YOUR TRS-80 COLOR COMPUTER AS MUCH AS 
POSSIBLE. 


Line 20 assigns T$ (target) the value of TR. 


Line 30 tells the computer to start searching for T$ at the 
first position (P) in S$. 


In Lines 45 and 55, INSTR locates T$ and then prints and 
blocks out T$ (CHR$(128)). It searches for the next occur- 
rence of T$ and does the same. 


Line 60 tells the computer to display the number of occur- 
rences of T$ in S$. 


DO-IT-YOURSELF PROGRAM 31-2 


Write a program that returns the first and second occurrences of 
the B in ABCDEB. 


The following data storage program contains a mailing list of names 
and addresses. This is an-easy way to store information. Notice that 
we've saved storage space by not putting spaces between the words. 
Doing so makes it difficult for you to read but not for the computer to 


do so. 


Notice also that we assign a leading asterisk (*) to zip codes so the 
computer doesn’t confuse them with street numbers. 


In this case, we’re looking for the names and addresses of all individu- 
als who live in the area specified by zip code 650—. Consequently, 
*650 is the target (A$). 


30 YS 


40 2% 


" *¥65¢@ u 

"JAMES SMITH+GSS@HARRISON + 
DALLASTK*75002:SUE 
SIM>+RT3+GRAYVIOSMO*#GS5084:LYDIA 

LONG +3445SMITHST sASBURYNJ*32044: 
JOHN GARDNER »BOXG@EDMONTONALBERTACA" 
"KERRY FEWELL +45GMAPLE + 
NEWORLEANS*89667: BILL 
DOLSEIN+G313E121 KANSASCITYMO*G41i34: 
STEVE HODGES» RT4FLORENCEME*65088 
"KAREN CROSS +314HURLEY 
WASHINGTONDC*10@0@11: ASHER 
FITZGERALD +2338HARRISONFTWORTHTX 
*76101: LIZ DYLAN »BOXSSONEWYORKNY 
*86866" 


So that your computer can search X$, add this line: 
9@ PRINT INSTR(X$ +A$) 


Run the program. Your screen displays: 


G2 
OK 


This tells you the string contains a name and address you need. 


What about Y$? Edit Line 50 so that the computer searches through 
those addresses. Does it tell you it found the needed name? 


Now try Z$. Displaying a zero is your computer’s way of saying, 
“There aren’t any names you need on this list.’’ 


DO-IT-YOURSELF PROGRAM 31-3 
Modify the mailing list program so that the following are true: 


X$ contains two addresses that have a 650— zip. 


The computer looks for every occurrence of *650, not 
only for the first. 


Never Change Horses in Midstring 


(MID$) 


MID$ statement gives you a powerful string editing capability by let- 
ting you replace a portion of one string with another. The syntax of 
MID$ is as follows: 


MID$ (oldstring,position,length) = newstring 
oldstring is the variable-name of the string to replace. 


position is the number of the position of the first character to 
be changed. 


length is a number of characters to replace. If you omit 


length, the computer replaces all of oldstring 

newstring is the string that replaces the specified portion of 
oldstring. 

Note: If newstring has fewer characters than length specifies, 


the computer substitutes all of newstring. newstring is always 
the same length as o/dstring. 
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To see what we mean, run this program: 


> CLS 

10 AS = "KANSAS CITY» MO" 
20 MID$(A$+14)="KS" 

30 PRINT A% 


Line 10 assigns A$ the value KANSAS CITY, MO. Then Line 20 tells 
the computer to use MID$ to replace part of the oldstring (A$) with KS, 
starting at Position 14. 


Change Position 14 to 8 and run the program. The result is: 
KANSAS CITY>» MO 

Now add the length option to Line 20: 
20 MID$(A$114+2)="KS" 


Notice that it doesn’t affect the result since newstring and oldstring are 
both two characters long. Change length to 1: 


20 MID4(A$+14s1)="K§5" 


The computer replaces only one character in oldstring, using the first 
character in KS. 


You'll find MID$ to be doubly effective when used with INSTR. Using 
the two, you can “‘search and destroy’’ text. INSTR searches; MID$ 
changes or ‘‘destroys.’’ The following program illustrates this: 


3 CLS 

1@ INPUT "ENTER A MONTH AND DAY (MM/DD). "5X 
20 P = INSTR(X$+"/") 

30 IF P = @ THEN 10 

40 MIDS$(X$+Ps1)= "-" 

5@ PRINT X$ " IS EASIER TO READ: ISN‘T IT?" 


In this program, INSTR searches for a slash (/). When it finds one, 
MID$ replaces it with a hyphen (-). 


DO-IT-YOURSELF PROGRAM 31-4 


Pretend you worked at a telephone company in the days when 
telephone exchanges were being switched from alpha-characters 
to numeric-characters. Write a program that uses MID$ to replace 
all alpha-exchanges with numbers. Be sure to clear enough string 
space or you'll get an 70S ERROR. 


Learned in Chapter 31 


BASIC WORDS CONCEPTS 


STRING$ Creating a string of characters 
INSTR Searching for a string 
MIDS Replacing one string for another 


Notes 
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CHAPTER 32 


IN ONE DOOR AND 
OUT THE OTHER 
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Input/output statements let you send data from the keyboard to the 
computer, from the computer to the TV, and from the computer to the 
printer. These functions are primarily used inside programs to input 
data and output results and messages. 


A Line Drive 
(LINE INPUT) 


The first input/output statement is LINE INPUT. Its syntax is as follows: 


LINE INPUT “prompt” string variable 
prompt is the prompting message. 


string variable is the name assigned to the line that is input 
from the keyboard. 


LINE INPUT is similar to INPUT, except for these differences: 


When the statement executes, the computer does not dis- 
play a question mark while awaiting keyboard input. 


. Each LINE INPUT statement can assign a value to only one 
variable. 


: The computer accepts commas and quotation marks as part 
of the string input. 


Leading blanks, rather than being ignored, become part of 
the string variable. 


With LINE INPUT, you can input string data without worrying about 
accidentally including delimiters such as commas, quotation marks, 
and colons. The computer accepts everything. In fact, some situations 
require that you input commas, quotation marks, and leading blanks as 
part of the data. 


Examples: 
LINE INPUT X$ 
lets you input X$ without displaying any prompt. 
LINE INPUT “LAST NAME, FIRST NAME? "’;N$ 


displays the prompt ‘“LAST NAME, FIRST NAME? ” and inputs data. 
Commas do not terminate the input string. Notice that the prompt in- 
cludes the question mark and the following space. 


To understand LINE INPUT better, enter and run the following 
program: 


10 CLEAR 308: CLS 

2@ PRINT TAB(8)5 "LINE INPUT STATEMENT": 
PRINT 

3@ PRINT: PRINT "*** ENTER TEXT **#" 

40 ’ *#** GET STRING+s THEN PRINT IT *** 


98 AS = ™ “SET AS TO NULL STRING 

6@ LINE INPUT "==3 "3 A$ 

70 IF AS = "™ THEN END “IF STILL NULL 
STRING: STOP! 

80 PRINT A% 

9% GOTO 5@ 


Customized Printing 
(PRINT USING) 


By now you know that the more you work with your computer, the 
more it can work for you. For instance, maybe you want to create a ta- 
ble that uses numbers, but you don’t want to type the plus and minus 
signs repeatedly. 

PRINT USING makes short work of this kind of problem by enabling 
the computer to print strings and numbers in a ‘‘customized” format. 
This can be especially useful for accounting reports, checks, tables, 
graphs, or other output that requires a specific print format. 


Here is PRINT USING’s syntax: 


PRINT USING format;item-list 


format is a string expression that tells the computer the for- 
mat to use in printing each item in item-list. It consists of 
“field specifiers’’ and other characters and is one (or one 
set). 


item-list is the data to be formatted. 


Note: PRINT USING does not automatically print leading 
and trailing blanks around numbers. It prints them only as 
you indicate in format. 


You may use the following field specifiers as part of format: 


The examples in the field 


# $$ _ specifier list are in the im- 
, #*g aAAA mediate mode but may be 
= £ incorporated into a pro- 
‘ : gram line. 
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Below is an explanation of each tield specitier, followed by examples 


of its use. 
# 


** 


A number sign specifies the position of each digit in the 
number you enter. The number of number signs establishes 
the length of the numeric field. 


If the field is larger than the number, the computer displays 
the unused positions to the left of the number as spaces and 
those to the right as zeros. 


PRINT USING "####e"3 66.2 (ENTER 
66 


If the field is too small for the number, the computer dis- 
plays the number with a leading % sign. 


PRINT USING “"#"3 66.2 
%66 


You can place the decimal point at any field location that 
you established with the number sign. The computer auto- 
matically rounds off any digits to the right of the decimal 
point that don’t fit into the field. 


PRINT USING "#,#"5 66.25 (ENTER 


466.3 
PRINT USING "##,#" 3 58.76 (ENTER 
58.8 


PRINT USING "##,## 
"$10.2+5.3+66.789+,234 
10.20 5,308 66.79 0,23 


Note: In the last example, format contains three 
spaces after the final number sign. These spaces sepa- 
rate the numbers when the computer displays them. 


The comma, when placed in any position between the first 
digit and the decimal point, displays a comma to the left of 
every third digit. The comma establishes an additional posi- 
tion in your numeric field. To avoid an overflow (indicated 
by a leading percent sign), place a comma at every third 
position in the numeric field. Overflows occur when the 
field isn’t large enough. 


PRINT USING "#######8#8#,"5 12345678 
12+345,678 


PRINT USING "####eeeee y" 5 123456789 
4123 +456 +789 


PRINT USING "### ,### ,##8" 5 123456789 
123,456;789 


When you place two asterisks at the beginning of the nu- 
meric field, the computer fills all unused positions to the left 
of the decimal with asterisks. The two asterisks establish 
two more positions in the numeric field. 


PRINT USING "*x###8##"5 44,0 
H¥##4G 


$$ 


*#¢ 


Line 10 defines the format, using **$ to fill the leading spaces with as- 
terisks and placing a dollar sign directly before the first number. This 


Placing a dollar sign ahead of the numeric field causes 
the computer to place a dollar sign ahead of the 
number when displaying it. This, of course, is handy 
when you are working with money. 


PRINT USING "S###,##"5 18,6735 
$ 18,67 


Two dollar signs placed at the beginning of the field cause 
the computer to display a floating dollar sign immediately 
preceding the first digit. 


PRINT USING "$$##,##"5 18,6735 
$18.67 


You can place this combination of symbols at the beginning 
of the field also. If you do, the computer fills the vacant po- 
sitions to the left of the number with asterisks and places a 
dollar sign in the position immediately preceding the first 
digit. 

PRINT USING "#*##$,##"5 8,333 

*#$8,33 


When you place a plus sign at the beginning or end of the 
field, the computer precedes all positive numbers with a 
plus sign and all negative numbers with a minus sign. 


PRINT USING "+e####8#" 5 75200 
#*¥+75200 


PRINT USING "+###"5 -216 
-216 


When you place a minus sign at the end of the field, the 
computer follows all positive numbers with a space and 
precedes all negative numbers with a minus sign. 


PRINT USING "“####,#-"5 -8124,420 
8124,4- 


PRINT USING "% 4"5 "BLUE ’S STORE" 
BLUE ‘S 


To see PRINT USING in use, run the following program: 


INPUT "WHAT’S YOUR FIRST NAME"S F% 
INPUT "WHAT’S YOUR MIDDLE NAME"s M$ 
INPUT "WHAT’S YOUR LAST NAME" L# 
INPUT "ENTER THE AMOUNT PAYABLE"? P 


CLS 

PRINT "PAY TO THE ORDER OF "3 
PRINT USING "E"GSFE5"."M$5","5 
PRINT L& 


100 PRINT: PRINT USING A%3 P 
118 GOTO iio 


format is sometimes used to protect checks from being altered. 


Do you have all that 
memorized? 


To learn more about 
PRINT USING, experiment 
with this program: 


9 CLS 

1@ INPUT 
“FORMAT "FF % 

2@ INPUT "“ITEM- 
Elsie ad 

38 PRINT USING 
Fest 

4@ GOTO 5 


This works fine for numeric 
data. For string data, 
change | in Lines 20 and 
30 to I$. 
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Net results? Is this tennis or 
big business? 
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Line 10 also sets up the numeric field using the # sign. Thus, when- 
ever you enter a number that is smaller than the numeric field, the 
computer precedes the number with asterisks to fill the unused spaces. 
Included in Line 10 are two more field specifiers, the decimal point 
and the comma. 


The computer displays the decimal point at only those positions speci- 
fied. Because you tell the computer to include two places to the right 
of the decimal (for cents), the computer rounds all numbers of more 
than two digits to two digits. If you enter a number that has one or no 
digits to the right of the decimal point, the computer inserted zeros. 


The exclamation marks in Line 80 tell the computer to use only the 
first character (the initial) of F$ (your first name) and of M$ (your mid- 
dle name). 

DO-IT-YOURSELF PROGRAM 32-1 


Change the program so that no leading asterisks appear on the 
check. 


DO-IT-YOURSELF PROGRAM 32-2 


Write a program that creates a table showing your income and ex- 
penses on a monthly basis. Don’t bother to itemize your expenses; 
just calculate the totals and the net result (plus or minus). 


Use STRING$ to organize the table, making it flexible enough so 
you can use it month after month without changing the entire 
program. 


POS 


POS is an input/output function that returns the current Cursor position 
on the screen or the carriage position on the printer. Here is its syntax: 


POS (device number) 
device number is 0 (screen) or —2 (printer) 


PRINT TAB (8) POS(O) 
returns the number 8 at Column 8 in the current line. 


Note: The leading space before ‘’8’’ causes it to appear in Col- 
umn 9. 


One way to use POS is to disable the ‘‘wrap-around”’ feature on the 
screen or the printer. Doing this prevents words from being broken in 
the middle. On the other hand, it necessarily shortens the line length. 
Run the following program to see POS at work: 


> CLS 
1@ A$ = INKEYS 
20 IF AS = "" THEN 10 


3@ IF POS (@) + 22 THEN IF A = CHR#(32) THEN 
AS$=CHR$(13) 

4@ PRINT A$$ 

398 GOTO 18 


This program lets you use the keyboard as a typewriter (except that 
you can’t correct mistakes unless you first disable the printer). POS 
watches the end of the line so no word is divided. 


In Line 30, the computer checks to see if the ‘‘current’’ cursor position 
is greater than Column 22. (The screen is 32 columns wide.) If the cur- 
sor passes Column 22, the computer begins a new line the next time 
you press the space bar (CHR$(32)). When the computer decides to 
begin a new line, it does so by printing a carriage return (CHR$(13)); 
in effect, the computer presses (ENTER). 


DO-IT-YOURSELF PROGRAM 32-3 


Write a program that uses POS to space words evenly on a single 
line. 


De-Vice Squad 


Did you ever think of your video display as an ‘‘output’’ device and 
your keyboard as an ‘‘input’’ device? 


With PRINT, PRINT USING, LINE INPUT, and POS, you can use de- 
vice numbers to direct input or output. For instance, suppose you type: 


PRINT #-2, USING "“###,###"5123,45678 (ENTER 
The screen remains “silent’’ while the printer prints: 
123,456 


You can use any of the available field specifiers with PRINT #-—2, 
USING. 


POS(—2) returns the printer’s current print position (the current carriage 
position). Run the following program: 


3 CLS 

1@ FOR I = 1 T0 10 

20 PRINT #-25 "*"5 

30 PRINT "PRINTER POS="5 POS(-2) 
40 NEXT I 

9% PRINT #-2,;" " 


The screen shows the print carriage position as it changes. Note that 
the position is figured internally, not mechanically. Most printers can’t 
print until Line 50 executes. 


We chose to test cursor 
position 22 since it was 10 
spaces less than the maxi- 


mum screen width, 32; 
that gives plenty of room 
to complete a long word. 
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LINE INPUT # works similarly, with the one difference that it lets you 
read a “‘line of data”’ from a cassette file. 


LINE INPUT # reads everything from the first character up to which- 
ever of the following comes first: 


° A carriage-return character that is not preceded by a line- 
feed character 


° The 249th data character 
. The end-of-file 


Other characters encountered (quotes, commas, leading blanks, and 
line feed/carriage return sequences) are included in the string. For 
instance: 


LINE INPUT #-1,A$ 
inputs a line of cassette file data into A$. 


The following program uses LINE INPUT # to count the number of 
lines in any cassette-stored program that is CSAVEd in ASCII format 
(using the A option): 


1@ CLEAR 500 
20 LINE INPUT "NAME OF DATA FILE? "iF% 
30 K=@ ‘’K IS THE COUNTER 

40 OPEN "I"4-15F% 

50 IF EOF (-i) THEN 100 

6 LINE INPUT #-i+ AS 

70 K=K+1 

82 PRINT AS 

92 GOTO 50 

100 CLOSE#-1 

110 PRINT “FILE CONTAINED" $Ki"LINES" 


Learned in Chapter 32 


BASIC WORDS CONCEPTS 
LINE INPUT Inputting a line from the keyboard 


PRINT USING Displaying strings and numbers in a cus- 
tomized format 

POS Determining the current cursor position or 
the current carriage position 


Notes 


CHAPTER 33 


A LITTLE BYTE 
OF EVERYTHING 


This chapter contains a hodge-podge of Extended Color BASIC features 
that don’t fit neatly into categories but that, nonetheless, can be very 
helpful. 


LET 


Many versions of BASIC require that you use LET whenever you assign 
a value to a variable as in the statement LET X=5. Although extended 
Color BASIC does not require LET, you may want to use it anyway. 
One reason is to ensure compatibility with those versions of BASIC 
that do require it. 


For example, these statements are the same: 
10 LET A$ = “A#”’ 
10 A$ = “A#” 


TRON/TROFF Commands 


TRON (“‘trace on’’) and TROFF (‘trace off’’) are debugging aids that 
help you trace the execution of program statements. 


TRON turns on a “tracer’’ that displays each line number of the pro- 
gram as it is executed. The numbers appear enclosed in brackets. 
TROFF turns off the tracer. 


Examples: 


TRON (ENTER 
TROFF (ENTER 
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Trace the execution of the ‘‘Lines’’ program. Type TRON (ENTER). 
Then run the program: 


>» PCLS 

1@ PMODE 351 

20 SCREEN 1 +1 

3@ LINE (@:0)-(255,191) +PSET 


The computer displays: 


(3) (10) (20) (30) 
OK 


This display indicates that the program first executed Line 5, then 10, 
20, and finally 30. Remember to type TROFF (ENTER) to turn off the 
tracer. 


Time After Timer... 
(TIMER) 


Your computer also has a built-in ‘‘timer’’ that measures time in six- 
tieths of a second (approximately). The moment you power-up the 
computer, the timer begins counting at zero. When it counts to 65535 
(approximately 18 minutes later), the timer starts over at zero. It pauses 
during cassette and printer operations. 


At any instant, you can see the count of the timer by using the TIMER 
function. Type: 


PRINT TIMER 

The TIMER function displays a value from 0 to 65535. 

You can also reset the timer to any specified time by typing: 
TIMER = number 

number is in the range 0 to 65535. 


To see TIMER (and PRINT @ USING, another “new” function), run the 
following program called ‘Math Quiz.” It presents you with a math 
problem. When you press (A), (8B), (©), or CD), the computer tells 
you whether the answer is right or wrong. Then the computer uses the 
timer to tell you the time you took to answer (using TIMER). 


19 DIM CH(3)+L#(3) ‘CH(#)=CHOICES: 
L$=ANSWER FORMATS 

20 LL=i@:UL=20 ‘LOWER LIMIT AND UPPER LIMIT 
FOR H AND ¥ 

3@ NYV=UL-LL+1 

40 P$="WHAT‘S ### + #H## P" “QUESTION FORMAT 

5@ FOR I= @T0O3 ‘INITIALIZE CH( ) 

6@ L$(I)=CHRS(I+G5)+") ###" 

70 NEXT I 

8@ CLS 

90 K=INT(RND(NY(+LL-.5) ‘GET RANDOM 
BETWEEN LL AND UL 

100 Y=INT(RND(NY)4+LL-.5) ‘GET RANDOM Y 

BETWEEN LL AND UL 
110 R=INT(X+Y+.5) ‘CORRECT ANSWER 


13@ FOR I = @ T0 3 ‘GET MULT. CHOICES 
140 CH(I)=INT(RND(NY)+LL-,.5) 
150 NEXT I 
160 RC=RND(4)-i ‘MAKE ONE CHOICE RIGHT 
170 CH(RC)=R 
18@ PRINT @ 32, USING P$ixk+¥ 
‘DISPLAY PROBLEM 
19@ FOR LN=3 TO G 
200 PRINT @ LN * 32+10,USING L$(LN-3) 5CH 
(LN-3) 
21@ NEXT LN 
220 TIMER = @ 


230 AS=" " “CLEAR KEYBOARD 

240 AS=INKEYS: IF AG=""" THEN 240 

290 SV=TIMER ‘IF KEY PRESSED» SAYE TIMER 
CONTENTS 


260 IF A$ "A" OR AS$2"D" THEN 240 ‘INVALID 
KEY-GO BACK 

265 PRINT @ 8 * 32+10;A% 

270 K=ASC(AS$)-65 

280 IF CH(K)=R THEN PRINT "RIGHT!": GOTO 380 

29@ PRINT "WRONG! ANSWER IS "3 R 

300 PRINT "YOU TOOK"S SY/G@s "SECONDS" 

310 INPUT "PRESS <ENTER? FOR NEXT PROBLEM" 5 
EN 

320 GOTO 80 


Through trial and error, change the upper and lower limits (Line 20) 
for h and v. Make the program perform a mathematical operation other 
than addition or have the computer keep score, based on your time. 
Add 5 seconds for each incorrect answer. 


Hexadecimal and Octal Constants 


Extended Color BASIC lets you use both hexadecimal and octal 
constants. 


Hexadecimal numbers are quantities represented in Base 16 notation, 
composed of the numerals 0 to 9 and the ‘‘numerals’’ A to F. Hexa- 
decimal constants must be in the range 0 to FFFF, corresponding to the 
decimal range 0 to 65535. 


To indicate that a number is an octal constant, precede it with the 
symbol &H, as shown here: 


&HAOIO &HFE &HDI &HC &H4000 


Octal numbers are quantities represented in Base 8 notation, com- 
posed of the numerals 0 to 7. Octal constants must be in the range 0 
to 177777. The computer stores them as two-byte integers that corre- 
spond to the decimal range 0 to 65535. 


To indicate that a number is an octal constant, precede it with the 
symbol &O or &, as shown here: 


&O70 &O044 U1777 &7170 &17 &O01234 


The use of “hex” and octal constants is convenient in programs that 
reference memory locations and contents. For further information, read 
a book on machine-language programming. 
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HEX$ 


To convert a number from decimal to hexadecimal, use HEX$. The 
syntax is as follows: 


For example, the following program displays the hexadecimal value of 
any decimal number smaller than 65536. It returns a string that repre- 
sents a hex value. 


5 CLS 

1@ INPUT "IF A NUMBER’S DECIMAL VALUE I5"35 
DEC 

20 PRINT "ITS HEXADECIMAL VALUE IS " 
HEX#(DEC) 


Learned in Chapter 33 


BASIC WORDS CONCEPTS 


LET Using LET to make programs compatible 
with other versions of BASIC 


TRON, TROFF Using the tracer to follow the execution 
of program statements 

TIMER Keeping track of and changing the time 
in a program 

HEX$ Converting a number from decimal to 
hexadecimal 


Notes 


Chapter 34 


USING MACHINE- 
LANGUAGE SUBROUTINES 


““Machine-language’’ (ML) is the low-level language that your computer 
uses internally. It consists of microprocessor instructions. ML subroutines 
are useful for special applications simply because they can do things 
much faster than BASIC. 


Writing such routines requires familiarity with assembly-language pro- 
gramming and with the microprocessor’s instruction set. For more infor- 
mation, see 6809 Assembly Language Programming, Lance Leventhal, 
Osborne/McGraw Hill, 1981. 


This section follows the step-by-step approach for using ML subroutines: 


1. Protecting Memory 

2. Storing the ML Subroutine in Memory 
3. Telling BASIC Where the Subroutine Is 
4. Calling the Subroutine 

5. Returning to BASIC 


We present a sample BASIC program that performs all five steps. You 
may type in the BASIC program lines as they are given, but don’t try to 
run the program until you've read all the steps. 


Our ML subroutine is simple. It gets a character from the keyboard. 
Then it returns the ASCII code for this character to the BASIC program. 
An assembly-language listing of this routine is later in this section. 


Our ML subroutine has a few features not available with BASIC’s IN- 
KEY$ or INPUT statements. First, it returns any key code, including the 
one for (BREAK). Second, it lets you key in control codes A-Z (CTRL-A 
through CTRL-Z). 


To key in a control character, press CA), release it, then press any key 
from (A) to (2). The control codes generated range from 1 to 26. 
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STEP 1. PROTECTING MEMORY 


With the CLEAR statement, you can reserve a section of memory for 
storing your ML subroutine. The first CLEAR parameter sets the string 
space; the second sets the memory protection address. For example: 


3 CLEAR 25; 12000 


sets the string space to 25 bytes and reserves memory addresses from 
12000 to the end of memory (see the Memory Map). You can now 
safely store your ML subroutine in this area. 


STEP 2. STORING THE ML SUBROUTINE IN MEMORY 


You can load an ML subroutine from tape (via CLOADM), or you can 
poke it into memory (using the BASIC POKE statement). In our example, 
we'll store the individual machine codes in DATA statements, then read 
and poke each code into the correct memory address. The codes are in 
the ML subroutine’s assembly listing, shown later in this section. 


20 FOR I = 1 TO 28 

30 READ B: POKE 12000 + I; B 

49 NEXT I 

599 DATA 173+ 159+ 160, @ 

68 DATA 39+ 250+ 129, 101 38, 12 
7@ DATA 173+ 159+ 160, @+ 39+ 250 
735 DATA 1295 GS 45% 2 

88 DATA 128, G4; 31+ 137,» 79 

9% DATA 126, 180, 244 


STEP 3. TELLING BASIC WHERE THE SUBROUTINE IS 


Before you can use the ML subroutine, you have to tell BASIC where 
the routine starts. Do this with the DEFUSR statement, which has this 
format: 


DEFUSRn = address tells where, in memory, an ML subroutine 
starts 


n is the number of the ML subroutine (0-9). 
address is the first address in memory where the ML subrou- 
tine is stored. 


In this example, the ML subroutine (which we'll call ML Subroutine 1) 
is stored in memory starting at Address 12000. To tell this to BASIC, use 
this statement: 


1@ DEFUSR1 12000 


STEP 4. CALLING THE SUBROUTINE 


To ‘‘call’’ the ML subroutine, use the USR function with this format: 


dummy variable = USRn(argument) calls an ML subroutine 
n is the number of the ML subroutine (0-9). 


argument is a value you want to pass to the ML subroutine. 
dummy variable is a variable you can use to store the data 
returned by USR. 


For example: 
110 A = USR1(®@) 


calls ML Subroutine 1 and passes it Argument 0. In this example, O is a 
“dummy argument.’ The ML subroutine won’t use it. (The purpose of 
Variable A is explained in the next step.) 


STEP 5. RETURNING TO BASIC The address of GIVABF is 


If you want to return a specific integer value to BASIC, as we do in this | Hexadecimal B4F4 or Deci- 
mal 46324. However, if you 


example, your ML subroutine must: (1) load the integer into Register D, h a d A 
(2) end by calling GIVABF, a special ROM subroutine. GIVABF causes | gacic eo Ste we 
your BASIC program’s USR function to ‘‘return;’ replaced by the integer BASIC Version 1.2 or later, 


you stored in Register D. this address may have been 
: ; changed. 
In this example, our ML subroutine loads the key you press into Register 


D and then calls GIVABF. This causes USR to return replaced by the key 
you press. Since Variable A equals the value USR returns, Variable A 
equals the key you press. 


If you don’t want to return a specific value to BASIC, end the subroutine 
with an RTS instruction. USR ‘‘returns’” your original dummy argument 
(0). 


The BASIC Program 
If you have a Deluxe Color 


This is the entire program with the ML subroutine poked into memory. Computer tsecthe 
Type it in carefully; then run it. key, rather than (AD. 


Each time you press a key, control returns to BASIC with the ASCII code 
for that key. Try pressing (BREAK). You'll get the code for (BREAK) 3. The 
BASIC program ends when you press (ENTER) or (A) CM). 


To get any of the codes 1 through 26, press (A), release it, then press a 
key from (A) to @). 


5 CLEAR 25% 12000 ‘RESERVE MEMORY 

10 DEFUSR1i=1280015 CLS 

20 FOR I = 1 TO 28 "STORE EACH BYTE OF OBJECT 
CODE 

3@ READ B: POKE 12000 + I; B 

4@ NEXT I 

45 ‘HERE IS THE OBJECT CODE 

5@ DATA 173+ 159, 160+ @ 

6@ DATA 39+ 250+ 129+ 10+ 38, 12 

7@ DATA 173+ 159+ 160+ @+ 39, 250 

75 DATA 129% GSs 45% 2 

B8@ DATA 128+ G4+ 31+ 137+ 79 

9@ DATA 126% 18@, 244 

99 ‘TELL BASIC WHERE THE ROUTINE IS 

100 POKE 275+ 15: POKE 276, 211 

110 A = USR1(@) ‘CALL THE SUBROUTINE AND GIVE 
RESULT TO A 

115 IF A = 13 THEN END 

120 PRINT "CODE ="3 A 

130 GOTO 1190 


For a variation in the program, change line 120 to: 
120 PRINT CHR#(A) 5 ‘DISPLAY THE CHARACTER 


Most control keys (4) followed by a key) have no effect when printed. 
Try G G@, though, and you see the cursor backspace. 
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Assembly language is not 
meaningful to the com- 
puter. It is a set of memory 
aids and symbols we use 
for convenience. Assembly 
language must be trans- 
lated, or “assembled,” into 
machine code, which the 
computer understands. In 
the listing above, the ma- 
chine code is given in hex- 
adecimal form. We 
converted it to decimal 
numbers for our BASIC 
program. 


The address of INTCNV is 
Hexadecimal B3ED. How- 
ever, if you have Advanced 
Color BASIC or Extended 
Color BASIC Version 1.2 or 
later, this address may have 
been changed. 
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ML Subroutine Listing 


This is the assembly-language listing of our ML subroutine example. To 
use it, you must have an assembler, such as EDTASM (Catalog #26- 
3250) or Disk EDTASM (Catalog #26-3254). You can’t use this assem- 
bly-language listing from BASIC. 


Hexadecimal Source Code Comments 


Object Code 
sPOLL FOR A KEY 


AD OF AG OB LOOP1i JSR (POLCAT) 


27 FA BEQ LOOPi 3IF NONE+ RETRY 

81 OA CMPA #10 sCTRL KEY (DN 
ARW)? 

26 @C BNE OUT 3NO+ SO EXIT 

AD 9F A® B® LOOPZ JSR (POLCAT) $YES. SO GET NEXT 
KEY 

27 FA BEQ LOOP2 3IF NONEs RETRY 

81 20 CMPA #65 11S IT A - 2? 

2D @2 BLT OUT +IF «< Ay EXIT 

88 40 SUBA #64 3CONVERT TO CTRL 
A/z 

iF 89 OUT TFR A:+B 3GET RETURN BYTE 
READY 

4F CLRA sZERO MSB 

7E Ba F4 JMP GIVABF sRETURN VALUE TO 
BASIC 

POLCAT EQU 40960 

GIYVABF EQU 46324 


Passing Values to an ML Subroutine 


USING THE INTCNV ROUTINE 


If you want to pass an integer to your ML subroutine, use the integer as 
the “argument’’ in your USR function. For example: 


A=USR1(5) 


calls Machine Code Program 1 and passes the argument 5 to it. You 
can then call the INTCNV routine, which gets the integer and stores it 
in Register D. 

USING THE VARPTR FUNCTION 


Another way to pass an argument to your ML Subroutine is to pass a 
“pointer” to the address where a variable’s value is stored. You can do 
this with the VARPTR function: 


VARPTR variable returns a pointer to where the variable’s value is 
stored 


For example: 
A=USR1I(VYARPTR(B) >) 


calls ML Subroutine 1 and passes a pointer to Variable B’s address. The 
pointer is stored in Register X. Your ML subroutine needs to know 
whether the variable is string or numeric. 


If the variable is string, your ML subroutine can find the string’s 5-byte 
descriptor in Register X. This descriptor tells where the string is: 


Il 


Byte 1 the length of the string (in characters) 

Byte 2 = reserved for the computer's use 

Bytes 3 and 4 = address of the first byte in the string 
Byte 5 = reserved for the computer's use 


If the variable is numeric, your program can find the address of the 
number's floating point value in Register X. This floating point value has 
this format: 


Byte 1 = the exponent of the mantissa 

Byte 2 = the mantissa’s most significant byte (MSB) 
Byte 3 = the mantissa’s next MSB 

Byte 4 = the mantissa’s next MSB 

Byte 5 = the mantissa’s least significant byte (LSB) 


The exponent is a signed 8-bit integer with 128 decimals added to it. 
An exponent of 0 means the number is 0, in which case the mantissa is 
insignificant. The exponent’s most significant bit stores the exponent’s 
sign: O if positive, 1 if negative. 


The mantissa is stored in normalized form with the most significant bit 
of the mantissa’s MSB assumed to be 1. This bit can indicate the man- 
tissa’s sign: O if positive, 1 if negative. 


You may want to use VARPTR to pass an array variable’s pointer to an 
ML subroutine. For example: 


A=USR1I(VYARPTR(B(S)) 
calls ML Subroutine 1 and passes a pointer to Array B’s Element 5. 


Your ML subroutine can find the elements’ values in memory as follows 
(from low to high memory): 


. Value of first element of last dimension 
. Value of last element of last dimension 
. Value of first element of first dimension 
. Value of last element of first dimension 


Each element is five bytes long. 


Returning Values to BASIC 


USR always returns at least one value to BASIC. This value is the argu- 
ment you originally pass to the ML subroutine, unless your ML subrou- 
tine changes or modifies it, as described below. 


USING GIVABF TO RETURN AN INTEGER 


To return a specified integer to BASIC, you can have your ML subroutine 
load the integer into Register D and call GIVABF, as demonstrated 
earlier. 


MODIFYING BASIC VARIABLES 


You can return any specified value to BASIC by having your ML subrou- 
tine modify a BASIC variable’s value. For example, assume you call an 
ML subroutine with this statement: 
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AS=(USRI(YARPTR( BS) ) 


You can have your ML subroutine modify B$’s value and then end the 
routine with an RTS instruction. This causes USR to return with B$'s 
modified value. 


If your ML subroutine modifies a string variable, be careful of the 
following: 


° Although you can change a string descriptor’s length byte to 
“‘shorten’’ a string, you cannot ‘‘lengthen”’ a string. If you 
don’t know what size string your ML subroutine will return, 
reserve 255 bytes (the maximum size) for the string’s value 
before passing it to the ML subroutine. For example: 


BS=STRING#$(255) 
AS = USRO@(YVARPTR( BS) ) 


passes a pointer to a 255-character string of blank spaces to 
the USR function. The ML subroutine can then put a string 
of up to 255 characters into the memory pointed to by B$ or, 
if necessary, shorten the string’s length byte. 


° You can modify the starting address of a string by changing 
the 2-byte pointer in the string descriptor. When you do this, 
though, we recommend the new starting address be an ad- 
dress included in the original string. 


° You can swap the starting addresses of two strings. This may 
be useful for sorting strings. If you do this, though, be careful 
not to “‘intersect’’ two strings. 


° If your ML subroutine modifies a variable that already points 
to a string literal, this will change your BASIC program. For 
example, assume you have this statement in your BASIC 
program: 


BS = "ABC" 


If your ML subroutine modifies B$, your BASIC program is 
changed. To avoid this problem, add a null string (‘’”) to any 
string literal that your ML subroutine will modify. For 
example: 


Be = “ABBEY + nu 


The null string forces BASIC to copy the string into string 
space, where your ML subroutine can safely modify it. 


Using Stack Space 


An ML subroutine, called by USR, that requires more than 30 bytes of 
stack storage must provide its own stack area. Save BASIC’s stack 
pointer upon entry to the USR function, setting up a new stack pointer 
and restoring BASIC’s stack pointer prior to returning to BASIC. The val- 
ues of the A, B, X, and CC registers need not be preserved by USR. 


Notes 


SECTION V 


ODDS AND ENDS 


SUGGESTED ANSWERS 


TO DO-IT-YOURSELF 
PROGRAMS 


Do-It-Yourself Program 4-4 


Sounding tones from bottom of range to top and back to bottom: 


1@ FOR X = 1 TO 255 

2®@ SOUND Kel 

3@ NEXT XK 

4@ FOR X = 255 TO 1 STEP -i 
9@ SOUND X+l 

6@ NEXT X 


Do-It-Yourself Program 5-2 


Lines added to clock program: 


92 FOR T = 200 TO 218 STEP 5 
94 SOUND T+i 

95 NEXT T 

97 FOR T = 210 TO 200 STEP -5 
98 SOUND T+1 

99 NEXT T 


Do-It-Yourself Program 5-3 
i@ FOR C = @TO8 
20 CEB) 
30 FOR X = i TO 4608 
4@ NEXT X 
3@ NEXT C 


Do-It-Yourself Program 7-2 


S FOR N = 170 10 


1@ PRINT "CHOOSE YOUR CHAMBER( 1-10)" 


2@ INPUT X 

3@ IF X = RND(10@) THEN 100 
40 SOUND 20@; 1 

o@ PRINT "--CLICK--" 

6@ NEXT N 

6S CLS 


7@ PRINT @ 230+ "CONGRATULATIONS!!!" 


80 PRINT @ 265, "YOU MANAGED" 
90 PRINT @ 296, "TO STAY ALIVE" 
95 END 

100 FOR T = 133 TO 1 STEP -5 
11@ PRINT "BANG! !!!1" 

120 SOUND T» 1 

130 NEXT T 

140 CLS 


15@ PRINT @ 230+ "SORRY+ YOU’RE DEAD" 


160 SOUND i+ 50 


170 PRINT @ 290+ "NEXT VICTIM PLEASE" 
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Do-It-Yourself Program 7-3 


40 R 
of P 
60 P 
78 P 


RINT @ 200; A 
RINT @ 214; B 


RINT @ 394; “YOU ROLLED A" R 

F R = 2 THEN 600 

F R = 3 THEN 6900 

IF R = 12 THEN 680 

IF R = 7 THEN 500 

IF R = 11 THEN 580 

FOR X = 1 TO 880 

NEXT X 

CLS 

PRINT @ 195+ "ROLL ANOTHER" R "AND Y 


PRINT @ 262+; "ROLL A 7 AND YOU LOSE" 
PRINT @ 42@+ "PRESS <ENTER? WHEN READY" 


PRINT @ 456; "FOR YOUR NEXT ROLL" 


PRINT @ 200; X 

PRINT @ 214; ¥ 

PRINT @ 394, "YOU ROLLED A" 2 
IF 2 = R THEN 500 

IF Z = 7 THEN GOO 


GOTO 188 

FOR X = 1 TO 19000 

NEXKT X 

CLS 

PRINT @ 230, "YOU’RE THE WINNER" 


PRINT @ 294+ “CONGRATULATIONS! !!" 
GOTO 63a 

FOR X = i TO 1000 

NEXT x 

CLS 

PRINT @ 264, "SORRY» YOU LOSE" 


PRINT @ 458; "GAME’S OVER" 


Do-It-Yourself Program 8-2 


5 CLS 

6 PRINT @ 230, "YOUR NAME"; 
8 INPUT N& 

i@ CLS 


a. il! 
20 XK 
30 


I ieee! 
RND( 100) 
RND( 100) 


nouwou 


40 PRINT @ 228, “WHAT IS" X 
435 INPUT A 
5@ IF A = KX + Y THEN 82 
68 PRINT @ 326; "THE ANSWER 
7@ PRINT @ 385,» "BETTER LUC 
84 GOTO 100 

2 ELS7) 
83 FOR M=i1T04 
84 SOUND 175, 1 
85 SOUND 20@, 1 


PRINT @ 232, "CORRECT +" 
GHe + 4 
PRINT @ 299% "THAT IS" 


ANSWERS" 
PRINT @ 362+ C/T*¥100 "% 


-Fmo onouowuoonm 
SS2z0 nuMNSs uf 
nso 


PRINT @ 4 
PRINT @ 4 
195 INPUT As 
119 GOTO 18 


wan V5 


ro" *% e ¥ 
K NEXT TIME+" N& 


NS "ler" 


PRINT @ 322+ C "OUT OF" T "CORRECT 


CORRECT" IF T=1@ THEN 


» "PRESS <ENTER? WHEN READY" 
» "FOR ANOTHER" 


Do-It-Yourself Program 10-1 


3 CLS 


7 PRINT @ 38+ “TABLE OF SQUARES" 


20 FOR N = 2 TO 10 
25 GOSUB 2000 


30 PRINT N "*" N "=" Ey 

40 NEXT N 

3@ END 

2000 REM FORMULA FOR RAISING A NUMBER TO A 
POWER 

2010 E = i 

2020 FOR X = 1 TO P 

2030 E=E*N 

2040 NEXT X 


205@ IF P = @ THEN E = 1 
2069 RETURN 


Do-It-Yourself Challenger Program (Chap. 11) 


1@ PRINT "TYPE A SENTENCE :" 


15 INPUT S$ 

2@ PRINT "TYPE A PHRASE TO 
23 INPUT D$ 

25 L = LEN(DS$) 


DELETE 


30 PRINT "TYPE A REPLACEMENT PHRASE" 


35 INPUT R& 
4@ FOR X = 1 TO LEN(S$) 


50 IF MID#(S#+X+L) = D% THEN 100 
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6 NEXT X 

7@ PRINT DS "-- IS NOT IN YOUR SENTENCE" 

8@ GOTO 20 

190 E = KX - 1 + LEN(D$) 

11@ NSS = LEFT#$(S#+X-1) + R& + 
RIGHT$(S#+LEN(S#) - E) 

120 PRINT "NEW SENTENCE IS :" 

130 PRINT NS$% 


Do-It-Yourself Program 14-2 


3S PMODE i+1 

1@ PCLS 

20 SCREEN 11 

30 XK RND(256)-1 
40 RND(192)-1 
90 C RND(9)-1 
GO PSET(K+V¥+C) 
7®@ GOTO 30 


Do-It-Yourself Program 15-1 


2S PMODE i+i 

1@ PCLS 

20 SCREEN i +1 

25 LINE (@+0)-(255,191) +PSET 

30 LINE (@+191)-(255+0) +PSET 

35 LINE (10:10)-(255+191) +PSET +B 
40 GOTO 40 


Do-It-Yourself Program 15-2 


3S PMODE i +1 

1@ PCLS 

20 SCREEN i +i 

30 LINE (72+168)-(200;72), 


PSET +B “FRAME 
4@ LINE (72+72)-(136;+3G6) + 
PSET ‘ROOF 
435 LINE (200,72)-(136;36) + 
PSET “ROOF 
9@ LINE (120,168)-(152:+100) + 
PSET +B ‘DOOR 
95 LINE (152,60)-(168;36) » 
PSET +BF “CHIMNEY 
6@ LINE (165,128)-(191+100)» 
PSET +B ‘WINDOW 
65S LINE (178+128)-(178;100) » 
PSET “WINDOW PART 
7@ LINE (165,114)-(191;5114)+ 
PSET “WINDOW PART 
73 LINE (85%128)-(111,5100); 
PSET +B ‘WINDOW 
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8d 


908 


Do-It- 


LINE (85114)-(111,114), 
PSET ‘WINDOW PART 


LINE (98+100)-(98,128) 5 
PSET ‘WINDOW PART 


GOTO 9@ 


Yourself Program 15-3 


3S PMODE isi 


Do-It- 


PCLS 

SCREEN iol 

Y=@ 

FOR X = @ TO 200 STEP 194 

OY = ¥ 

Y = 30-O0¥ 

LINE (X»1@@-Y)-(K+1@05s100-OY) +PSET 
NEXT 

GOTO 96 


PRINT @ 193;"D0 YOU WANT TO SEE A SQUARE?" 
FOR X = 1 TO 1000: NEXT X 

PMODE isi 

PCLS 

SCREEN i +¥+i 

LINE (75+15@)-(150,75) »PSET>B 

FOR X = 1 TO 1000: NEXT X 

Y= -Y¥ 

GOTO 5 


Yourself Program 18-1 


Make the following changes: 


PCOPY 4 T0 3 
PCOPY 3 T0 2 
PCOPY 2 TO 1 


Delete Lines 11, 21, and 31. 


Do-It- 


Yourself Program 18-2 


PCLEAR 8 

PMODE 4+i 

PCLS 

SCREEN i +1 

LINE (@+0@)-(255,191) +PSET 
FOR Y = 1 TO 2@: NEXT Y 
PMODE 4:2 
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SCREEN 1:8 

LINE (@+@)-(255,+191) »PSET 
FOR Z = 1 TO 20: NEXT 2 
PMODE 0:3 

SCREEN i+i 

LINE (@+0)-(255,191) »PSET 
FOR A = 1 TO 20: NEXT A 
PMODE 1:4 

SCREEN isi 

PCLS 


1@@ LINE (@+0)-(255,+191) »PSET 
105 FOR R = 1 TO 20: NEXT R 
11% GOTO 20 


Do-It-Yourself Program 19-1 


PMODE 451 

PCLS 

SCREEN 1:@ 

FOR RADIUS = 1 TO 10@ STEP 19 
CIRCLE (128, 96) ,RADIUS 

NEXT RADIUS 

GOTO 70 


Do-It-Yourself Program 19-3 


3S PMODE 4+1 


10 
20 
30 
40 
30 


PELS 

SCREEN 1:50 

CIRCLE (200;40) +30++1+.13%-.63 
CIRCLE (230510) s525+1+,.,29+.48 
GOTO 50 


Do-It-Yourself Program 19-4 


5 PMODE i+1i 

1@ SCREEN 1+ 

15 PCLS 3 

20 COLOR 1:0 

25 CIRCLE (200:4@) +30++1+.13+.63 ‘MOON 

30 CIRCLE (230:10)+52++1+.29+.48 ‘MOON 

35 LINE (100+185)-(180+125) +PSET:+B 
‘HOUSE FRAME 

4@ LINE -(140@;85) »PSET ‘ROOF 

45 LINE -(100,+125) »PSET ‘ROOF 

55 LINE (110/160)-(125+130) »PSET+B 
‘WINDOW ~ 

62 LINE (155+160)-(170+130) »PSET +B 
‘WINDOW 

70 LINE (130+130)-(149+185) »PSET:+B 
‘DOOR 

75 PSET (134+:157+1) ‘DOOR KNOB 

8@ LINE (160+105)-(160;90)+PSET ‘CHIMNEY 


85 LINE -(175+90) »PSET ‘CHIMNEY 


90 LINE -(175+115) »PSET ‘CHIMNEY 

100 ’ SMOKE STARTS HERE 

105 K=167:Y=89 ‘CIRCLE CENTERPOINT 

110 SP=0: EP=90 ‘CIRCLE START AND END 
POINT 

115 FOR R= 17050 STEP .@5 ‘CIRCLE RADIUS 

120 EP=EP+.@2: IF EP >» 1 THEN EP = @ 

125 CIRCLE (X+R+ Y-R)+R+4e1+SPsEP ‘SMOKE 

13@ NEXT R 

200 GOTO 200 


Do-It- 


Yourself Program 20-1 


Delete Line 40 and add Line 65: 


6S 


PAINT (1580+100) +8:8 


Do-It-Yourself Program 20-3 


2 P 


MODE i+i 

PCLS 

SCREEN 1 +® 

PCLS 3 

COLOR i:+@ 

CIRCLE (200;30),15 

PAINT (200530) +251 

LINE (100+185)-(180+125)"sPSET +B 
LINE -(140;90) »PSET 

LINE -(100+125) »PSET 

PAINT (1354115) +491 

LINE (110+160)-(125+130) »PSET +B 
LINE (155,+160)-(170+130) »PSET +B 
PSET (1384515751) 

PAINT (1205180) +Oe1 

LINE (130+130)-(149+185) +PSET +B 
LINE (101+135)-(41,185) »PSET +B 
LINE (91+140)-(51,185) »PSET +B 
PAINT (55+138) +051 


100 PAINT (892183) +4s1 

105 FOR X = 1 TO 5@@: NEXT XK 
110 PAINT (89183) s2+51 

115 FOR X = 1 TO 5@@: NEXT X 
120 PAINT (89155) +4s1 


GOTO 1190 


Do-It-Yourself Program 21-1 


> P 
1d 
20 


MODE 451 
PCLS 
SCREEN 1 +0 


213 


30 DRAW "BMGB,11GSE2ZO;BE2O0sE205F203BF205 
F20;L405BL40;L405BU405R405BR4035 
R40 5620 5BG205G205H205BH205H205BM128,9635 
NU4@5ND4@ sNE2@5NF205NG205NH205NL40:R40" 
4@ GOTO 40 


The star you created probably isn’t as fancy as this one because you 
haven't been introduced to B or N yet. But don’t worry; you will be 
before the end of the chapter. 


Do-It-Yourself Program 21-2 


2 PMODE 431 

1@ PCLS 

20 SCREEN 1+1 

25 DRAW "BM40 ;805U40sR405Dd405L40" 
38 DRAW "BM+20+,205U405R40;D405L40" 
4@ LINE (60:100)-(40;8@) »PSET 

o@ LINE (60+60)-(40+40) »PSET 

6@ LINE (100;60)-(80;+40) »PSET 

7®@ LINE (100+100)-(80,;80) +PSET 

B® GOTO 80 


Do-It-Yourself Program 21-3 


3 PMODE 451 

i@ PCLS 

20 SCREEN i+1 

29 DRAW "BMS@ +S@L30D30R30D38L30" 

30 DRAW "BM9@ +Sa@DGOR3GUGa" 

40 DRAW "BM1G@ +S@DGORIBBUGSL3AD30R30" 
39% GOTO 50 


Do-It-Yourself Program 21-4 


5 PMODE 4:1 

i@ PCLS 

20 SCREEN 1:8 

32 DRAW "BMOS8;9G3NUS@INESGINRS@INFSGS 
ND8@;35NGS5S6 5NL8@:NHS6" 

4@ CIRCLE (98:96) +8@+15+1+,125;i1 

9@ CIRCLE (135+110) -8@s1le+i+i+.125 

60 LINE (135+1180)-(190+167)>,PSET 

70 LINE (135+110)-(213+11@0) +PSET 

82 GOTO 8@ 


Do-It-Yourself Program 21-5 


1 CLEAR 2500 

3 DIM AZ$(25) 

6 FOR LE = @ TO 25 
19 READ AZ$(LE) 
15 NEXT LE 


20 NC$="BR4BU7" ‘NEXT CHARACTER 


29 NL$="BD4" “NEXT LINE 
30 BS$="BL9" “BACKSPACE 
35 HM$="BM@+10" ‘HOME POSITION 


100 CW=G: CH=8 ‘SIZE OF CELL 

110 R1i=7: R24=191 “ROW POSITION 

126 Ci=8: C4z2=247 ‘COLUMN POS 

125 CC=1: CL=1 “CURRENT ROW/COL 

200 PMODE 4+1 

219 PCLS 

220 SCREEN 1:0 

225 DRAW "S4" 

238 DRAW HM$ 

250 AS=INKEY$: IF A$=" " THEN 2590 

260 IF "A"?AS OR "Z" << AS THEN 250 

262 CC=CC+ 1 

265 IF CC?27 THEN DRAW NL#: FOR I = 1 TO 27: 
DRAW BS#: NEXT I:CC=i: GOTO 278 

269 DRAW NCS 

270 DRAW AZ#(ASC(AS) -G5) 

290 GOTO 258 

1900 ’ A 

1018 DATA BDIDGU4NRSUZEIRSFIDG 

i920 ’ B 

1938 DATA ND7R4F1iDiGiINL4FiD2CGiNL4BRiIi 


105@ DATA BDIDSFIRSELIUIBU3SUIHIL3GIBDGBRS 
1070 DATA D7R4E1USHIL4BD7BRS 

1090 DATA NRSD3NR4D4R5 

1110 DATA NRSD3NR4D4BR5 

1130 DATA BDIDSFIRSELUZNL2ZBUZULHILSGIBDGBRS 
115@ DATA D7U4RSNU3D4 

117@ DATA R4L2D7L2R4BR1 

119@ DATA BDSDIF1IRSE1UGBD?7 

1210 DATA D7U4R3E2NU1G2F2D2 

1230 DATA D7R5 

12580 DATA ND7R2END7R2D7BR1 

1260 ’ N 

1270 DATA DINDGEIR3FiIDG 

1280 ’0 

1298 DATA BDIDSFIRSELIUSHIL3GIBDGBRS 


1300 ’ P 
1318 DATA ND7R4FiD2GiL4BD3BR5 


1320 ’ Q 
1330 DATA BDIDSFIRSELUSHILSGID4BR3F2 
1340 ‘ R 


1350 DATA ND7R4F1iDiGiINL4FiD3 


216 


13780 DATA BDIDIFIR3FIDZ2G1L3HIBUSE1IR3FIBDG 


1398 DATA R4L2D7BR3 


141@ DATA DGFIRSE1IUGBD7 


1430 DATA DSF2ZE2US5BD7BR1 


1450 DATA D7RZNUGRZU7BD7BR1 


147@ DATA DIFSDIBLSULESUIBD7 


149@ DATA D2F2ND3E2U2BD7BR1 


1510 DATA RSDIGSDIRS 


Do-It-Yourself Program 21-6 


3 PMODE 351 


PCLS 
SCREEN 1 +@ 
DRAW "BM50+1705U805NG305E8Os5F8O05NF3O5 


D8@3L505U705L505D705L60" 

LINE (50+170)-(170:+170) »PSET 

LINE (110+170)-(160+170) »PSET 

FOR X = 1 TO 50@: NEXT XK 

LINE (100+170)-(160+170) »PRESET 

LINE (120+180)-(120+110) »PSET 

LINE (160+100)-(125+11@0) »PSET 

LINE (160+170)-(125+180) »PSET 

LINE (120+180)-(120,110) »PRESET 

LINE (160+100)-(125+110) »PRESET 

LINE (160,170)-(125+180) »sPRESET 

DRAW "BM110+17@;BU7@5BRS0;G255D7@0s5E25" 
CIRCLE (130:125) 110++1+.135+.9 

DRAW "BM13@;130;D155D1iSsG1I@sE1BsIUISsL1i9" 
LINE (120,145)-(120:51935) »PSET 

FOR X = i TO G@: NEXT X 

LINE (120+145)-(120:5135) »PRESET 

FOR X = 1 TO 120: NEXT X 


100 LINE (1205145)-(110;145) »PSET 


101 


FOR X = 1 TO G@: NEXT X 


105 LINE (120+145)-(110,5145) »PRESET 
196 FOR K = 1 TO G@: NEXT X 

110 LINE (120+145)-(120,135) »PSET 
12@ FOR KX = 1 TO i12@: NEXT x 


CIRCLE (130:125) 5101 


122 DRAW "BM130+1305C15D30;G1@sSE19sUiISs3L1i9" 
125 DRAW "BM110;1703BU7@95BRS@05C15 


G25 i;D705E2535" 


130 COLOR 4;1 

135 LINE (120+180)-(120+110) »PSET 
14@ LINE (160;100)-(125,110) +PSET 
145 LINE (160+170)-(125,+,180) »PSET 


150 LINE (120,+180@)-(120+110) »PRESET 
155 LINE (160,100)-(125+110) »PRESET 
16@ LINE (160,170)-(125:+18@) »PRESET 
165 LINE (110+170)-(160+170) +»PSET 
17@ FOR K = 1 TO 5@@: NEXT X 

175 GOTO 20 


Do-It-Yourself Program 22-1 


> PCLEAR 4 

1@ PMODE 4:31 

15 PCLS 

20 SCREEN 1+1 

25 DIM V(35 +35) 

30 X=10: Y=10 

35 DRAW "BM1@:1@5 S25 HiI@IRISSFI@sIR205 Fid;s 
GIP@IL2GIGiIBILISsE1BsUZOsD4sNLEsD4sNLiz2s 
D4NLi6s D4sNLi2sD43NL8" 

4@ GET (K-X+¥-Y)-(CX#3.5 +Y¥#3.5) 1UeG 

45 A$=INKEY$: IF A$="_" THEN 45 ‘PRESS ANY 
KEY TO START 

2@ PCLS 

535 FOR A = 10 TO 200 STEP 5 

6@ PUT (K+tA+¥)-CX+A4t35 +V¥+35) +V +PSET 


73 GOTO 55 


Notice that we’ve used the options for both GET and PUT. If you want 
this rocket to go faster, delete the options and switch to Mode 3. 


Do-It-Yourself Program 24-1 


3 CLS 

19 FOR N= i2T01 STEP -1 
15 PRINT "NOTE"3 N 

20 PLAY STR#(N) 

25 FOR I=1 TO 500: NEXT I 
30 NEXT N 


Do-It-Yourself Program 24-2 


Change the following lines: 


100 AS = "TSICSESFSLISGSP45L45C5ES3F5L13 G" 

105 BS = "P4sL4sCsEsFsL2sGsEsCsEsli sD" 

110 C$ = "P4SL4s5D+5LB5E5G5Es3P85L45C5L83 D3 
D+" 

115 D$ = "L4sEs3Cs5L25;035C5L83035D3L85025 B-" 

120 ES = "GHESL45G5L1i5Fs3P45L8j5G5F5E5F" 

125 FS = "L25G5Es5L45C5L85DID+s3E3G5L45A5 


Li3s0335 C" 
130 X$ = "KASSXBSFIXCHIXDSIXES IX SS" 


Add Line 140: 
140 PLAY X$ 


Do-It-Yourself Program 25-1 


3 CLS: PRINT "POSITION TAPE - PRESS PLAY 
AND RECORD" 

7 INPUT "PRESS <ENTER? WHEN READY" R& 

10 OPEN "O"y» #-1+ "CHECKS" 

15 CLS: PRINT "INPUT CHECKS - PRESS <XxX> 
WHEN FINISHED" 

20 INPUT "NUMBER :"35 N& 

23 IF N$@ = "KX" THEN 96 


30 INPUT "DATE :"35 DS 
40 INPUT "PAYABLE TO :"35 P$% 
9@ INPUT "ACCOUNT :"35 S$ 


6a INPUT "AMOUNT :$"35 4 

78 PRINT #-1+ N&+ D&+ P$+ SH+ A 

8@ GOTO is 

90 CLOSE #-1 

92 CLS**F = @ 

95 INPUT "WHICH ACCOUNT"$ BS 

1020 PRINT "REWIND TAPE - PRESS PLAY" 

110 INPUT "PRESS <ENTER? WHEN READY"3$ R# 
120 OPEN "I"+ #-1;+ "CHECKS" 

130 IF EOF(-1i1) THEN 17¢@ 

140 INPUT #-1i+ N#;, D#;: P$+ SH; A 

150 IF BS = S$ THEN T=T+A4A 

16@ GOTO 13¢ 

170 CLOSE #-1i 

18@ PRINT "TOTAL SPENT ON -" BS, "IS $" T 


Do-It-Yourself Program 26-1 


10 DATA 33; 12+ 42; 13% 15% 23 
20 DATA 25+ 30+ 33+ 27, 14; 8 


40 FOR X = 170 12 

90 READ I(x) 

60 NEXT X 

7@ INPUT "ITEM NO."3 N 

75 IF N ? i2 THEN 70 

8 PRINT "INVENTORY FOR ITEM" N "IS" I(N) 
98 GOTO 7@ 


Do-It-Yourself Program 26-2 


5 DIM T(S2) 
7 DIM D(S2) 
10 FOR XK = 170 52 
20 TCX) = XK 


30 NEXT X 
34 CLS 
36 PRINT @ i@i+ "... DEALING THE CARDS" 


40 FOR XK = 1 TO 52 
9@ C = RND(S2) 
60 IF T(C) = @ THEN 30 


70 D(X) =C 
73 SOUND 128, 1 
B® T(C) =@ 


12@ PRINT @ 107+ “YOUR HAND" 
13@ PRINT @ iG7;" " 

14@ FOR X=i1TO5 

15@ PRINT D(X)35 

i6@ NEXT X 


Do-It-Yourself Program 27-1 


Lines that change items: 


11@ INPUT "WHICH ITEM NO. DO YOU WANT TO 
CHANGE"; N 

115 IF N > 12 THEN 116 : 

120 INPUT “WHAT IS THE REPLACEMENT ITEM"S 
S$(N) 

130 GOTO 8@ 


The appendix has a sample program that adds and deletes items from 
this list. 


Do-It Yourself Program 27-2 


Lines that change the song lyrics: 


119 PRINT 
120 INPUT "WHICH LINE DO YOU WANT TO 
REVISE" L 


125 IF L > 4 THEN 120 

13@ PRINT "TYPE THE REPLACEMENT LINE" 
14@ INPUT A¢(L) 

150 GOTO 50 


Do-it-Yourself Program 27-3 


1 CLEAR 1000 

5 DIM A#(5@) 

7 CLS 

1@ PRINT "TYPE A PARAGRAPH" 

16 : 

20 PRINT "PRESS </> WHEN FINISHED" 

30 X = 1 

40 AS = INKEY$ 

50 IF A "" THEN 40 

6@ PRINT A$$ 

70 IF A&% "/" THEN 105 

82 A$(X) AS(X) + AS 

90 IF Ag "." OR A$ = "?F" OR AS = "I" THEN X 
=X+1 

19% GOTO 4¢ 


uy tpl 


219 


220 


105 PRINT: PRINT 

11@ INPUT "(1) PRINT OR (2) REVISE"S R 

120 CLS 

130 ON R GOSUB 1000, 2000 

148 GOTO 1@5 

10900 REM PRINT PARAGRAPH 

1010 FOR Y = 1 TO X-1 

1920 PRINT AS(Y)5 

10380 NEXT ¥ 

1040 RETURN 

2000 REM REYISE PARAGRAPH 

2010 FOR Y = i TO X-1 

2020 PRINT Y "--" AS(Y) 

2030 NEXT Y 

2040 INPUT "SENTENCE NUMBER TO REVISE"S § 

2045 IF S > K-1 OR S < 1 THEN 2040 

2050 PRINT A$(S) 

2060 PRINT "TYPE PHRASE TO DELETE" 

2070 INPUT D$ 

2080 L = LEN(D$) 

2090 PRINT "TYPE A REPLACEMENT PHRASE" 

2100 INPUT R$ 

2110 FOR Z = 1 TO LEN(A$(S)) 

2120 IF MID#(A$(S) +Z+L) = D% THEN 2160 

2130 NEXT 2 

2148 PRINT D$% "-- IS NOT IN YOUR SENTENCE" 

2150 GOTO 2060 

2160 E = Z2- 1 + LEN(D$) 

2170 AS(S) = LEFTS$(A$(S) sZ-1) + R$ + RIGHT 
$(A$S(S) »sLEN(A$(S))-E) 

2180 RETURN 


Do-It-Yourself Program 27-4 


Change this line to print on the printer: 
150 PRINT #-2% AS(Y)5 


Do-It-Yourself Program 28-1 


1 CLS: CLEAR 1000: DIM T#(100)+ A$(100); 

S$(100)+ M$(100)+ Z2(1900) 

PRINT “POSITION TAPE -- PRESS PLAY AND 

RECORD" 

4 INPUT "PRESS <ENTER? WHEN READY"5 R& 

8 REM 

9 REM OUTPUT TO TAPE 

10 OPEN "O"+ #-i1;+ "BOOKS" 

15 CLS: PRINT “INPUT YOUR BOOKS -- TYPE kk? 
WHEN FINISHED" 

20 INPUT "TITLE"$ T% 

25 IF T# = "KX" THEN 50 


26 INPUT "AUTHOR" AS 


ho 


28 INPUT “SUBJECT"$ S$ 

30 PRINT #-1+ T$+ AS+ S$ 

4@ GOTO 15 

5@ CLOSE #-1 

6@ CLS: PRINT "REWIND THE RECORDER AND PRESS 


PLAY" 
70 INPUT “PRESS <ENTER? WHEN READY"; R& 
74 REM 
76 REM INPUT FROM TAPE 
78 Beil 


8@ OPEN “I"y #-i» "BOOKS" 

85 IF EOQF(-1) THEN 128 

9@ INPUT #-1» T#(B)+ A$(3)+ S$(B) 

95 B=B+i 

11@ GOTO 85 

120 CLOSE #-1 

490 PRINT 

500 INPUT "SORT BY (1) TITLE (2) AUTHOR OR 
(3) SUBJECT"S A 

5i@ IF A > 3 0R A 1 THEN 5900 

526 ON A GOSUB 1400+ 2000, 3000 

530 GOSUB 4000 

340 PRINT 

5350 FOR X = i 7T0 B-1i 

560 PRINT "TITLE s" TS(Z(X)) 

57@ PRINT "AUTHOR: " AS(Z(K)) 

58@ PRINT "SUBJECT :" S$(2Z(X)) 


390 NEXT X 

6@@ PRINT : GOTO 500 

820 REM 

940 REM BUILD M$ ARRAY 
1900 FOR X 1 TO B-1 


1010 M$(X) = TS(K) 
1020 NEXT & 

1830 RETURN 

2000 FOR X = 1 TO B-1 
2010 M$(K) = AS(X) 
2020 NEXT XK 

2030 RETURN 

300@ FOR X = 1 TO B-1l 
3010 M$(X) = SH$(K) 


3900 REM 

40900 REM SORT ROUTINE 
4005 T= 1 

4010 K=@ 

4020 =X + 1 


x 
4930 IF X > B-1i THEN RETURN 
4040 IF M#(K) = "ZZ" THEN 4020 
4050 FOR Y = i TO B-i 
40G@ IF M$(Y) < M#(X) THEN K = Y 
4@65 2(T) = xX 
4080 NEXT Y 
4085 T=T#i1 
4090 M$(K) = "22" 
4190 GOTO 4019 


v7 


222 


1@ DIM S$(4)+ N$(13)+ 


Do-It-Yourself Program 29-1 


T(4+13) 


2@ DATA SPADES; HEARTS» DIAMONDS: CLUBS 


3@ FOR X =17T04 

4@ READ S#(Xx) 

3@ NEXT X 

6@ DATA ACE» 2; 3+ 4» 
JACK» QUEEN: KING 

7@ FOR X = 17013 

8@ READ N$(Xx) 


98 NEXT X 

10@@ FORS =1i1T04 

11@ FOR N= 1 70 13 
120 T(S+sN) = (S-1) * 1 


130 NEXT N+S 
140 FOR X = 1 TO 52 
15@ S = RND(4): N = RN 


5+ G+ 7+ B+ D+ 1+ 


3 +N 


D(13) 


160 IF T(S+sN) = @ THEN 1590 


170 T(SsN) = @ 


18@ PRINT N#$(N) “-" S$(5)>+ 


i990 NEXT x 


5 CLS 

i@ FOR NUMBER = i TO 1 
20 PRINT NUMBER ~*~ 2 
38 NEXT NUMBER 


3 CLS 


Do-It-Yourself Program 30-1 


@ 


Do-It-Yourself Program 30-2 


1@ FOR NUMBER = 100 T0 1 STEP -10 


2@ PRINT SOR(NUMBER) 
30 NEXT NUMBER 


> CLS 

1@ FOR A = -18@ TO 179 
15 RD=A/57,.29577951 
30 CP=COS(RD)*14+16.5 
40 SP=SIN(RD)*14+16.5 
90 IF SP<=CP THEN 79 


Do-It-Yourself Program 30-3 


STEP 10 


‘COS POSITION 
‘SIN POSITION 


60 PRINT TAB(CP)$ "C"$TAB(SP)5"S": GOTO 80 
70 PRINT TAB(SP)5"S"sTAB(CP) 5"C" 


B® NEXT A 
90 GOTO 1a 


Do-It-Yourself Program 30-4 


a.) PLOG (1003) 


6.91975079 
b.) PLOG(74,.9865) 
4,3173081 
c.) ? LOG(3.354285) 
+21023863 


Do-It-Yourself Program 30-5 


9 CLS 

10 INPUT "WHAT NUMBER "3 NUMBER 

15 X=LOG(NUMBER) /LOG(1@) 

20 PRINT "THE LOG BASE 1@ OF" NUMBER "IS" X 
23 GOTO 10 


a») 7,00890077 E -11 


Note: The log of 1 in any base is 0. The answer the com- 
puter displays is the result of a round-off error. All computers 
produce this answer. 
Bed = 
Ca) 2 
d.) 2,69897001 
es) -1 
f.) 3,00043408 


Do-It-Yourself Program 30-6 


i.) DEFFNR(X) = X#57,29577951 
aa) 

5 CLS 

i@ DEF FNC(X) = X43 

20 INPUT "WHAT NUMBER DO YOU WANT TO CUBE" 3} 
30 X=FNC(X) 

4@ PRINT xX 

5@ FOR A= 17075 

55 NEXT A 

6% GOTO 20 


Do-It-Yourself Program 31-1 


> CLS 

1@ KS = STRING$(30,"-") 

20 FOR XK = G4 TO 416 STEP G4 
3@ PRINT @ X+ K% 

4@ PRINT @ 97+ "BILL" 

41 PRINT @ 161, "SUE" 

42 PRINT @ 225, "JON" 

43 PRINT @ 289, "MARY" 

390 PRINT @ 38, "MATH" 

o1 PRINT @ 45+ "SPELL" 


223 


52 PRINT @ 53» "READ" 
6@ PRINT @ 1@35 "XK" 
Gi PRINT @ 1755 "K" 
62 PRINT @ 231+ "K" 
63 PRINT @ 3iis "K" 
7@ NEXT XK 

BO GOTO 8@ 


Do-It-Yourself Program 31-2 


5 CLS 
1@ X$ = "ABCDEB" 
20 Y$ = "B" 


30 PRINT INSTR(X$+Y$) 5 INSTR(4 +X +S) 


Do-It-Yourself Program 31-3 


15 xX=1 

20 X$ = "JAMES SMITH+GSS@HARISON »sDALLASTK* 
75002:SUE SIM+sRT3»GRAVIOSMO*G5084: LYDIA 
LONG +3445SMITHST +ASBURYNJ*#32004:B0B 
STRONG ;+BOX 6@+EDMONTONALBERTACA: TIMMY 
DUNTON; PIERMONTMO*#65878" 

50 P = INSTR(X+X$+A$): PRINT P 

60 IF P ¢< > @ THEN X = Pt+i: GOTO 50 


Do-It-Yourself Program 31-4 


1@ DIM TBL$(26) 

20 FOR I=@ TO 25 

30 READ TBL$(I):NEXT I 

4@ PRINT "ENTER OLD-STYLE PHONE NUMBER" 
90 INPUT N$ 

6@ IF N$=" " THEN 40 

7@ FOR I=i TO LEN(N$) 

B80 CS$=MIDS(N$sI51) 

90 IF C$<"A" OR CH }"Z" THEN 120 

10@@ C$=TBS(ASC(CS$)-65) 


110 MID#(N$+I)-C4 

120 NEXT I 

13@ PRINT "NEW-STYLE = "3 N& 

14@ REMABCODEF 

1590 DATA MENS ng AE eg EE ig SE RE IE rg EO 
16@ REMGHIJKL 

170 DATA Be pa pe 3" SS" 
1809 REMMNOPQOR 

1908 DATA aS Yhadiey Yael Saket ae Suter der Atari s Wal er 2 
200 REMS TUVYVW X 

2190 DATA Bp ges CE BE Bt at gs 
220 REM Y Z 

230 DATA "9" ,"2" 
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Do-It-Yourself Program 32-1 


10 A$ = "$$H#H# pH#He#HHH, HH DOLLARS" 


Do-It-Yourself Program 32-2 


> CLS 

10 INPUT "INCOME"$ I . 

15 INPUT "EXPENSES" 5E 

20 N = I-E ‘NET GAIN OR LOSS 


25 AG = "$¢$ueHeee, 2H" 

30 BS = "$teeete,#e#" 

35 CH = "4+¢¢HHHeHe, He" 

4@ CLS: PRINT @ 33> "MONTHLY ECONOMIC STATUS 
REPORT" 

45 PRINT @ 9G+ STRINGS (32;"-") 

39@ PRINT @ 1G@, "INCOME" 

S35 PRINT @ 256+ "EXPENSES" 

G@ PRINT @ 352, "TOTAL (+) OR (-)" 

63 PRINT @© 340; STRINGS(10;"-") 

7@ PRINT @ 18@;+ USING Ags I 

73 PRINT @ 276; USING B#;3 E 

8@ PRINT @ 371; USING C#3s N 

98 GOTO 98 


Try modifying this program to keep track of your electricity bills and to 
store the information on a yearly basis. 


Do-It-Yourself Program 32-3 


3S CLS 

1@ PRINT "THIS" TAB(POS(@)+4)"I5"5 

2@ PRINT TAB(POS(@)+4) "EVENLY" 
TAB(POS(@)+4) "SPACED" 


225. 


SAMPLE PROGRAMS 


Sample Program #1 


Type this program and save it on cassette, but don’t open it (or run it) 
until Christmas! 


3 CLS 

1@ PRINT @ G4, STRINGS (32;"%*") 

15 PRINT @ 352+ STRINGS (32;"%") 

20 PRINT @ 199» "JOY TO THE WORLD" 

25 FOR X = 1 TO 1000: NEXT X 

3@ CLS 

35 PRINT @ G4, "JOY TO THE WORLD" 

4@ PRINT @ 9G, "THE LORD IS COME" 

45 PRINT @ 128+ "LET EARTH RECEIVE HER KING" 
5@ PRINT @ i160, "LET EVERY HEART" 

3S PRINT @ 192+ "PREPARE HIM ROOM" 

60 PRINT @ 224; "AND HEAYEN AND NATURE SING" 
65 PRINT @ 256, "AND HEAYEN AND NATURE SING" 
7@ PRINT @ 288+ "AND HEAYEN AND HEAVEN AND 


NATURE SING" 

100 AS="T45 035 L2sCiL4iO025BsLBsAsL2. sGsld3 
FSL2s;E5D35" 

105 B="L2.5C3P3Z5L4s5GsL25;As5L45P32s;A5L2. 5B3 
P325L45Bs035L1.5C" 

110 C$="L45CiCsOZ25L45BsAsG5L4.iGsL8sFsLasE3 
O035C" 

115 D$="O35L4s5C5025BsASGSP3Z25L4,. sGsL8sFsl43 
EsP3Z25EsP325E5P325Es5P325E5P325L85E5F" 

120 E$="L2,5G3L8s5FSEs3L45D5P325D5P325D53P325 
L85D5SE5L2.5F5L85E5D" 

125 F$="O25L4s5Cs035L25C50Z25L45A5L4. §G5LB5F 5 
L435 EsFsL2sEsDsLisC" 

130 X$ = "KXASSXBSIXC$IXD$SIXESIXFSS" 

135 PLAY K% 

200 PMODE 31 

205 PCLS 4 

210 SCREEN 150 

215 COLOR 154 

220 LINE (90;96)-(118,»26) »PSET 

225 LINE (146;96)-(118+26) »PSET 

23@ LINE (90,/96)-(146;96) +»PSET 

235 DRAW "BM112;96s5DiSsRi@sU15" 

240 LINE (@+112)-(255 596) »PSET 

245 PAINT (23885) sisi 


250 K = RND(255) 
255 Y = RND(115) 
260 A = RND(4) 


265 PSET (K+¥s+A): GOTO 250 


Sample Program #2 


1 ’‘*** BACK TO BACH *** 
2 ‘ 


226 


1@ PRINT @ 9G+ STRING$(32."%") 

2@ PRINT @ 320; STRING$(32+"%") 
23 PRINT @ 2@i;+ "BACK TO BACH" 

4@ FOR X 1 TO 1000: NEXT X 


Phy 

6O B="LZ5ASL4SFSGsSASBsO3sL2s;Cs025C3PiG3sCs 
FsL4;Gs3FsE3D" 

B65 C$="LZ5E3L45FsEs3D5C3L25015Bs023L45C3D5 
Esc" 

70 D$="LZ5E5LisDSLZ5G5L4sCiDsEsFsl2sGicC3 
Pi6sC" 

75 ES="LZ5A5L45F5G3A5BsO3SL25C3023C3PiGsCs 
F3L45G3F5E5D" 

B80 FS="LZ25ESL4s5FsEsDsCsDsEsL2sF 3015B3L15025 
gd 

BS K$="XASIXBSIXC$IADSIXES FHKE SS" 

90 PLAY K$ 


Sample Program #3 


1 ’ **#*MEXICAN HAT DANCE#** 

3S CLS 

10 PRINT @ 96+STRING$(32,"%") 

20 PRINT @ 320;+STRING$(325"*") 

30 PRINT @ i199+"MEXICAN HAT DANCE" 

4@ FOR X = 1 TO 500: NEXT XK 

125 REMSTARTTUNE 

130 O$="V1IS5ST3I0Z5" 

135 P$="L8CFP8CFP8CFP4P8" 

140 9$="CFGFEPSFGP4P8" 

1435 X$="KOSSXPSIXOS 5" 

15@ PLAY X$ 

155 R$="CEP8CEP8CEP4P8 

160 S$="CEFEDP8SEFP4P8 

165 Y$="KOSsKRSFXSE5" 

17@ PLAY Y¢% 

18@ REM 2ND TIME 

185 O$= "V255T3501" 

19@ PLAY X 

195 O#="T3;04" 

197 S$="CEFEDP8EFO4CO3AF" 

200 PLAY Y% 

210 A$="03CO02BO03CO2AA-AFEFCP4" 

2290 B$="CO1BO2CDEFGAB-O3CEG" 

229 OF="V1IS5T45" 

230 Z2$="KO4SXASSXBSs" 

235 PLAY O¢ 

240 C$="03B-AB-GF+FEG=ECEG" 

245 D$="OQ4LiGCPIGCPiGCPiIGL8DCO3B-AGFP4" 

290 ES="KOS$SXC$FXDS5" 

255 PLAY F% 

260 F$="02L1GGPi1GGPiIGGPIGDPiIGDPiGDPiIGEPiGFP 
1GLBELIGGPiGOiGP1GL8G 
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265 G="VY1I502L1i6GPi6GP1GGP1IGDPiGDPiIGDPiGEP 
1i6FPiGLBECOiGC" 

270 H$="KXFSFXGHs" 

28@ PLAY H$ 

285 I$="KFS$5" 

29@ PLAY I$ 

295 J$="O02LiGGPiIGGPiGGPIGAPIGGPiIGGPIGAPIGBP 
1603L4CP8" 

380 PLAY "KJ$5" 

310 K$="O04L1DL4DEDEL8DEDELIGDEDEDEDEL 
32DEDEDEDEDEDEDEDELG4DEDEDE 
DEDEDEDEDEDEDEDEDEL32DD-CO3BB-AA- 
GF+FEE-DD-L4DD-" 

320 PLAY "KK" 

338 M$="TSL8D02BB-BGF+GL4DP8" 

340 N¢="L8DC+DEF+GABO3CO2L4AP8" 

358 AA$="03LBCOZBOECOZAG+AF+FF+L4DP8" 

37% BBS="O3L8DDDEDCOZBA03DEDCO2BA" 

388 CC$="02DEDCOiBAQ4DEDDEDDEDDEF+ 
GDO3SBGT4D02BGT3D01 T2BL4P2VU38LiG" 

4AO@ PLAY "XM$5XN¢5XAA$ SXBBS5XCCH5" 

502 PMODE 4;1i 

5035 FOR ¥Y = 1705 

510 SCREEN 1:0 

328 PCLS 

550 CIRCLE (128;9G) +5@+1+.2+,85+.67 

S60 CIRCLE (128;:96) +s25s1s2%9,5e1 

570 LINE (105,96)-(151 +96) +PSET 

600 PMODE 4;1 

610 SCREEN 1:0 

628 PCLS 

630 CIRCLE (128+75) +5@+1+.2+,85+.67 

660 CIRCLE (128:+75) s1s2+,5e1 

670 LINE (105+75)-(151575) +PSET 

675 NEXT Y 

680 IF Y > 3 THEN 69¢@ 

685 GOTO 3500 


700 PRINT @ 227+ “NOW THAT’S A HOT TAMALE" 
= 1 TO GOO@:NEXT XK 


Sample Program #4 


1 ’ *#*#*BUFFALO GALS#*#* 


= ‘ 
39 CLS 
1@ PRINT G4, STRING$(32;"%") 


@ 
15 PRINT @ 384; STRING$(32;"%") 
@ 201, "BUFFALO GALS" 


295 FOR XK 1 TO 1900: NEXT XK: CLS 

30 PRINT @ 32+ "AS I WAS WALKING DOWN THE 
STREET" 

35 PRINT @ G4+ "DOWN THE STREET» DOWN THE 
STREET® 


4@ PRINT @ 96+ "A PRETTY GAL I HAPPENED" 


435 PRINT 
o@ PRINT 
35 PRINT 
6@ PRINT 
6S PRINT 
70 PRINT 
73 PRINT 
8@ PRINT 
85 PRINT 
90 PRINT 
93 PRINT 


100 AS="T45CSESP3Z5ES5F sP325F5AsGsL25E5" 


@ 
@ 
@ 
@ 
@ 
@ 
@ 
@ 
@ 
@ 


@ 


133, 
1G@; 
197 > 
224+ 
261+ 
288; 
320+ 
Coe 
391+ 
4iG+s 
453+ 


“0. MEET” 

"JUST AS LOVELY AS" 

“THE MORNING DEW" 
“BUFFALO GALS WON’T YOU" 
"COME OUT TONIGHT" 

"COME OUT TONIGHT +" 
"COME OUT TONIGHT +" 
"BUFFALO GALS WON’T YOU" 
"COME OUT TONIGHT" 

"AND DANCE IN THE" 
"LIGHT OF THE MOON." 


105 B="L45GsFsLz2sDsL4sAsGsEsCs" 


110 C$="L45E5P3Z25ESFsP325FiLBsAsP3B25A5L45 


GSESO35LBSCHP325C5" 


115 D$="O25BSP325B5G3P325G5L45F 501 5B5025 


LisCsPi6;s" 


120 ES$="LB5C5P32iC3L4$P325C3E3ILBiGsP325G5 


ASP3Z25A5L45G5L25E" 


125 F$="LBjGsP3Z25G3L45F3L25D3L45A3L85G5 
P325G5L25E" 
130 G$="LE8;C3PG45C5PG45L45C5E5L85G5P325G3 


L4sASL8iGSP325G3L45E5035C5" 


135 H$="O25BSLB5GsP3Z2IGsFsP3ZjiF3L4sD3Le2,. 3 


er 
14@ X$ = 


145 PLAY K% 


1590 CLS 


155 PRINT @ 230; 


"KAS SXBSFXCHIXD$S IXESIKFSIAGSS XK 


"THAT’S ALL FOLKS" 


Sample Program #5 


4 


3S PMODE 351 


1 ‘*** IN-OUT **+* 


1 
10 
73 


19 PCLS3 
15 SCREEN 1:0 
20 FOR I =3T07 
25 FOR J=2T0O6 
30 FOR S = @ TO 3 
35 FOR R = @ TO 3 
4@ COLOR R:5S 
435 A = @:B=255:C=0:D=i91 
5@ LINE (A:+C)-(B+D) +»PSET +B 
5S A=A+J:B=B-J:C=C+1:D=D-I1 
68 IF A<255 AND C<i91 THEN 50 
63 NEXT R 
7@ NEXT S 
73 NEXT Jel 
82 GOTO 30 
Sample Program #6 


‘#** DRAWING TRIANGLES *** 
CLS: CLEAR 
PRINT @96;STRING$(32,"%") 


229 


230 


80 PRINT @ 288+ STRING$(32;"*") 


12d 


PRINT @ 16@+ "THIS PROGRAM DRAWS THE 
TRIANGLE YOU SPECIFY AND THEN CALCULATES 
ITS AREA" 

FOR K=1 TO 2200: NEXT: CLS 

CLS:PRINT"FOR 3 SIDES TYPE+ SSS (@-100)" 
PRINT"FOR 2 SIDES (1-180) AND i ANGLE (9- 
90) TYPE+ SAS" 

PRINT "FOR 1 SIDE (@-G®@) AND 2 ANGLES (@- 
90) TYPE» ASA" 

INPUT A$: IF A$="SAS" GOTO 300 

IF AS="ASA" GOTO 400 

‘SSS 

PRINT "ENTER 3 SIDES» (LONGEST SIDE 
FIRST)" 

INPUT Li»+L2+L3 

IF L23Li OR L33L1i1 THEN PRINT "***LONGEST 
FIRST PLEASE . «+ «": PRINT: GOTO 210 
S=(Li+L2+L3)/2 

IF S*=Li THEN PRINT "***NOT A 
TRIANGLE***": PRINT: GOTO 210 
Y¥3=2*SOR(S*(S5-L2)*#(S-L1)*(S-L3))/L1 
A=Y3/L2: A=ATN(A/SOR(-A*At1)) 
K3=COS(A)*L2 

AR=(L1*Y3)/2 

GOTO 490 

‘SAS 

PRINT "ENTER 2 SIDES AND i ANGLE: AB;sAC? 
THETA (LARGEST SIDE FIRST)" 

INPUT Li sL2sT 

T=(7T#3,14159)/180 

Y3=L2*SIN(T) 

X3=COS(T)*L2 

AR=(L1i#Y3)/2: GOTO 490 


“ASA 
PRINT “ENTER 2 ANGLES AND 1 SIDE: THETAI»s 
THETA2;+ AB" 


INPUT TisT2:sL2 

T1=(7T1#3.14159)/18@: T2=(T2*3,14159)/ 
18d 

Y3=L2*SIN(T1) 

Bi=COS(T1)*L2 

B2=Y3/TAN(T2) 

Li=Bit+B2: X3=Bi: IF L2>Li THEN X=L1: 
Li=L2: L2=xX 

AR=(L2*Y3)/2 
CLS:PMODE4+i:PCLS:SCREEN i +1 

F=1 

YC=(3,14159 * (LI#F-X3*F)#(YS*F)°2)/3 
YS=(3,14159 *(X3#F)#(YOXF)°2)/3: 
YVT=HUC+YUS 

S1=Y3/K3: S2=¥3/(K3-L1) 

IF INT(X3) = @ THEN 11900 

IF INT(X3)=INT(L1i) THEN 1000 

IF X3>L1 THEN 1199 

IF X3=L2 THEN 1000 

FOR Y=20@ TO L1*2+20 STEP 2: 


PSET(Y #¥345 95): NEXT 
308 FOR K=@ TO K3 
SSi PSET(X#24+2@0sS1#(K3-X)45+5): NEXT 
960 FOR K=X3 TO Lis PSET(K#¥2+20s5Y3+(S2* (Li- 
X43) 95) 5 NEXT 
98@ FOR X=1 TO GOO: NEXT X 
61@ PRINT @ 130;"AREA="SAR5" SQ, UNITFS"S 
63@ PRINT @352, "*"5: INPUT "TO RUN AGAIN: 
PRESS <1> <ENTER?"3 BG: IF BG=i THEN 120 
G40 STOP: GOTO 10 
1900 FOR Y=5 TO YO+S: PSET(X3*2+20+¥ 54): 
NEXT: GOTO 54@ 
1100 FOR Y=S TO Y3+5S: PSET(20+¥s5): NEXT: 
GOTO 540 
1200 FOR K=Li TO X3: PSET(X#24+20+%3+(S2*(L1- 
X)+5) 95): NEXT: GOTO 540 
130@ FOR X=K3 TO @: PSET(K#2+20s,Y3+(S1*(0- 
K)+5) +4): NEXT: GOTO 540 


Sample Program #7 


1 ‘*** PROJECTION STUDIES *** 

2 ‘ 

2 PMODE 4+1 

1@ PCLS 

15 SCREEN 1:+@ 

20 DRAW "BMS@ +sS@RGODIO@NLZ2OD29L2ONUZOL2ONU 
2O@L20UZO@NRZ20U10" “TOP VIEW 

25 DRAW"BMS@ +1 88R2ZO0ND20R20ND20R20D20NL20D 
1@LGOUI@NR2OU2ZG" ‘’FRONT VIEW 

34 DRAW "BM15@+,19O9R3GD3GL30U1@NE2Z0U2Z0" 
‘SIDE VIEW 

35 ’ OBLIQUE YVIEW_LINES 40-690 

49 DRAW "BM150,S@USEL1SRI@BF2Z0BD30NRSL20H 
25U10 

45 DRAW"BM15@ »S@USFSULSRISHBFSLISFENR1ISD 
ISFSNDI@E1SNRiI®@HB 

9@ LINE (175530)-(200,555) »PSET 

33 LINE -(200,;80) »PSET 

60 LINE (167,60)-(183+46) »PSET 

65 GOTO G5 


Sample Program #8 


1 ‘*** UNFOLDING BOX *** 

2 ‘ 

3 PCLEAR 8 

1@ PMODE 351 

15 PCLS 

20 COLOR 655 

25 DRAW"BM10@ »-1@@USO8NR3GELSER3SO@NGISD3GGiIG 
NUS®@L38" 

3@ PAINT (105;95) +856 

35 PAINT (135,80) +8;6 


40 PAINT (119@+65) +856 

43 SCREEN isi 

5@ FOR X = 1 TO GOO: NEXT XK 

110 PMODE 3:5 

112 PCLS 

115 COLOR G;5 

120 DRAW "BMi00,19GU3O@NR3SGEZORSOGZOD3ONL 
3OFZOL30H20 

125 LINE (180:100)-(70+95) +PSET 

130 LINE -(70;65) »PSET 

135 LINE -(100;70) »PSET 

140 LINE (70@;95)-(40,65) »PSET +B 

145 LINE (1305100)~-(160,95) »PSET 

15@ LINE -(160;,65) »PSET 

155 LINE -(130+70) »PSET 

160 PAINT (95:95) +856 

165 PAINT (105;95) +856 

17@ PAINT (135+85) +896 

175 PAINT (45,85) +856 

18@ PAINT (115+65) +856 

185 PAINT (1255114) +856 

190 SCREEN 1i+i 

195 FOR X = 1 TO GO@: NEXT X 

200 GOTO 10 


Sample Program #9 


1 ‘*** SINE WAVE *** 

9 é 

3 PMODE 4+1 

1@ PCLS 

15 SCREEN 1+i 

20 LINE (@+86)-(255,+86) »PSET 
25 PI=3.14159 

30 A1=-4*PI 

35 AZ=4*PI 

40 N=180 

45 R=50 

5@ K=(AZ-A1)/N 

55 F=255/(A2-Al) 

6@ FOR I =Ai TO A2 STEP XK 
65 X=1*F 

70 Y=R*¥SIN(I) 

75 PSET ((K+14@) +(8@+Y) +1) 
8@ NEXT I 

9%@ GOTO 998 


Sample Program #10 


1 ’*** SIN/COS **+* 
2 ‘ 

1@ PMODE 4+1 

2@ PCLS 
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SCREEN 1 +@ 

LINE (127+5)-(127+185) »PSET 
LINE (7+95)-(247+95) +PSET 
FOR XSCALE=7 TO 247 STEP 20 
PRESET (XSCALE +95) 

NEXT XSCALE 

FOR YSCALE=5 TO 185 STEP i@ 
@ PRESET(127,+YSCALE) 

@ NEXT YSCALE 

@ FOR X=-18@ TO i8@ STEP 1.5 
@ AX=K/37.29578 

3S XP=X/1.5+127 

@ Fi=-(SIN(AX)*98)+95 


@ F2=-(COS(AX)*98)+95 

@ PSET(XP+Fi+1): PSET(XPsF291) 
@ NEXT X 

@ GOTO i198 


Sample Program #11 


Samp 


1 


Fd 
rs 


‘*#** RANDOM GRAPHICS *** 


PMODE 3,1 

PCLS 

SCREEN 1i+i 

F =RND(4):B=RND(8): IF B=F OR (B-4=F) 
THEN 25 

COLOR F+B:PCLS B: FORL=98@T05 
LINE -(RND(255) »RND(191)) +PSET 
CIRCLE (RND(255) »RND(191)) +RND(100) 
NEXT: FOR P=@ TO 10 

PAINT (RND(255) »RND(191)) sRND (4) oF 
NEXT: FOR H = 1 7T0 7 

FOR T=@ TO GOO: NEXT T: GOTO 10 


le Program #12 


‘***NAVAHO BLANKET*##* 


£ 


3S PMODE 3:1 


PCLS 4 

SCREEN 1+ 

COLOR 1:0 

FOR X = @ TO 255 STEP 18 

OY = ¥ 

Y = 30-O0Y 

LINE (X+1@0-Y)-(X+1@+10@-OY) »PSET 


LINE (X+120+Y)-(X+10+120+0Y) +PSET 
NEXT 


FORC =2T08 
PAINT (@+110) Cel 
NEXT 

GOTO 5 
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234 


Sample Program #13 


1 


a 


‘*** PAINTED LACE *** 


3 PMODE 3+1 


19 
20 
30 
40 
5@ 


6a 


PCLS 

SCREEN i +1 

DRAW"BMS@ +1 8@UG@BUZOUGORGOBRZORGODGO 
BD20DG@LG0BL20L60 

DRAW"BMS9 »,18@UGO@R4GBR20R80D20BL20L60 
BL2GL20D290R20BREOR20U20 

DRAW"BMS@ ,18O@RGOUBABUZOU4OL4GBD20D20 
BDGODZORZ20UGOBUZ0UZOL20 

DRAW"BMS®@ + 18O@UGABU4OBRZORGOBRZORZ20U2Z0 
L2@DG0BD20D20R20 
DRAW"BMS@ +1 89BRBGU40BU2Z0U80 
DRAW"BMS@ + 18@BUBSREOBRZGR4G 

PAINT (851128) 16:8 

PAINT (95+78) +6+8 

PAINT (15595) »6+8 

PAINT (13515145) »6;58 

PAINT (1281185) +7:+8 


190 PAINT (755150) +7+8 


PAINT (160/150) +758 


1@2 PAINT (75+75) +7:8 

103 PAINT (160;75)+7;:8 

104 PAINT (120+110)+7:8 
110 FOR K =1 TO GOO: NEXT X 


GOTO 5 


Sample Program #14 


1 
Z 


‘*** DRAWING BOARD *** 


3 CLS 
5 PRINT @128,;STRINGS(32+"*"):PRINT@ 288; 
STRING$S(32+"*") 


30 


PRINT @ 200, “DRAWING BOARD" 

FOR X = 1 TO GO@: NEXT XK 

CLS 

PRINT @ 96+ "PRESS <4}> FOR UP+ <DOWN 
ARROW> FOR DOWN: <BACKSPACE® FOR LEFT + 
<TAB? FOR RIGHT: <A> FOR SOUTHWEST» <S> 
FOR SOUTHEAST: <W> FOR NORTHEAST» <Q> FOR 
NORTHWEST" 

PRINT @ 288,"PRESS <1 FOR INVISIBLE 
LINE+ <2>+<3>+ OR <4> FOR DIFFERENT 
COLORED VISIBLE LINES» PRESS «</> TO 
CHANGE COLOR-SET" 


PRINT @ 448; “PRESS <SPACEBAR? TO PAUSE" 
FOR K=1 TO 4800: NEXT & 

CC=4: TG=0 

PMODE 351 

PCLS 


6@ SCREEN 1;+TG 

70 K=128:Y=9G6:XI=0:Y1I=0 

BO US="""s DS=CHRS$(10): WH=CHRS(8): 
E$=CHR$(9) 

90 NW$="QO": NES="W"s SWH$="A": SES="S" 

100 CiS="1"sC2$="2" 3:CB$=="B": C4$="4" 

110 AS=INKEY$ 

120 IF A$=U$ THEN YI=-1i:XI=0: GOTO 240 

130 IF A$=D# THEN YI=1:XI=@: GOTO 240 

140 IF A$=WS THEN XI=-1i:YI=@: GOTO 249 

150 IF A$=E% THEN XI=1:YI=@: GOTO 248 

160 IF A$=NE% THEN XI=1i:YI=-i: GOTO 240 

170 IF AS$=NWS THEN XI=-1:Y1=-1:G0TO 240 

180 IF A$=SE% THEN XI=1:YI=1:GOTO 240 

19@ IF A$=SWS THEN XI=-1:¥1=1:GOTO 248 

200 IF Ci#<=A% AND AS£=C4%$ THEN CC=ASC(AS)- 
48: GOTO 2490 

210 IF A#="/" THEN TG=(NOT TG AND 1) OR (TG 
AND NOT 1): GOTO 240 

220 SCREEN 1+ TG 

230 IF A$=" " THEN XI=0: YI=0 

240 K=X+XTsVYa¥+V¥IiTF X2@ THEN X=0 

250 IF K?255 THEN X=255 

260 IF Y2@ THEN Y=0 

270 IF Y2191 THEN Y =1i91 

275 IF CC=1 THEN PSET(K+¥ +3) 

28@ PSET (X+¥+CC) 

290 GOTO 1190 


Sample Program #15 


1 ’‘*** INTERACTING LINES *** 
3 CLS 
20 C=C +i 


25 IF C > 8 THENC =5 
3@ COLOR C+i 

5@ PRINT "TYPE KOsYO"S5 
6@ INPUT KO;+YO 

70 PRINT "TYPE X1s¥1i"5 
B@ INPUT K1i;+Y1 

9@ PMODE 3+1 


100 SCREEN 1+i 

110 LINE (K@+¥@)-(X1+¥1) +PSET 
115 FOR X = 1 TO 2000: NEXT X 
128 GOTO 28 


Sample Program #16 
1 ‘*** RANDOM LINES *** 
2 ‘ 
2@ PMODE 4+i 
20. PCLS 


235 


30 SCREEN i+i 
35 X = RND(255): Y = RND(191) 


4@ LINE -(X+¥) +PSET 
45 FOR X = 1 TO 200: NEXT X 
59@ GOTO 35 


Sample Program #17 


1 ‘*** 8-LEAF CLOVER *#*# 
2 ‘ 

3S PCLEAR 8 

1@ PMODE 451 

i353 PCLS 

2@ SCREEN 150 

25 PI=3.14159 

30 A1L=0: AZ=2*PI 

35 N=360:A=58 

40 K = (A2Z-A1)/N 

45 FOR I = Ai TO A2 STEP X 
5@ R = A * COS (4*I1) 

93 K =R #SIN(I) 

60 Y =R * COS(I) 

65 PSET(128 + X»,96+Y +5) 
7@ NEXT I 

73 GOTO 25 


Sample Program #18 


1 ‘*** TIMEBOMB #*** 

2 é 

1@ PMODE 4; 1 

15 PCLS 

20 SCREEN i»1i 

25 CIRCLE (128;96) +80 

3@ CIRCLE (128;96) +90 

SS°PAINT (010) 55 

40 FOR T=38@ TO -3@ STEP -1 

45 A=(2#*3,.1415) *T/60 

5@ LINE (128+96)-(75*SIN(A)+128,;75% 
COS(A)+96) »PSET 

993 SOUND 0*2+1+20/(Q+1)+1 

6@ LINE (128+96)-(75*SIN(A)+128;75% 
COS(A)+96) »PRESET 

65 9=60-2*T:FOR Y=9 TO @ STEP -1:NEXT 

7@ NEXT 

73 CLS 

8@ PCLS 

835 PRINT @ 237;"BOOM!" 

9@ SOUND 1:30 

95 PMODE 451 

100 SCREEN i+i 

1@5 FOR I =2 TO 200 STEP 2 

11@ CIRCLE (128;96) +1 

115 NEXT I 


236 


SCREEN 11 

FOR X =2 TO 200 STEP 2 
CIRCLE (128;9G6) +K+s3 
NEXT X 

FOR I = 2 TO 200 STEP 2 
CIRCLE (128:96)+1+30.5 
NEXT I 

GOTO i55 


Sample Program #19 


o 


1 ’#** ROTATING FAN *** 


5S PCLEAR 8 

3% GOTO 68O 

6@ LINE ((255-X) +(191-Y))-(ks¥) +PSET 
Gi J = Jti:IF JA THEN J=@:A=RND(50) 
63 RETURN 


REM ROTATING FAN 
FOR I = 1 TO°5 STEP 4 
PMODE 3:I 

PCLS 

SCREEN 1:08 
A=25:K=O: Y=O: J=@ 


FOR X =@ TO 254 


2 COLOR K/32+1:55 


GOSUB G@: NEXT X 

FOR Y =@ TO 198 

COLOR Y/24+155 

GOSUB 6@: NEXT Y 

FOR X = 255 TO 1 STEP -1i 
COLOR K/32+1:55 

GOSUB G@: NEXT xX 

FOR Y = 191 TO 1 STEP -1 
COLOR Y/24+1;5 

GOSUB G@: NEXT Y 

NEXT I 

FOR I = i T0535 STEP 4 
PMODE 3:1 

SCREEN 1:0 

FOR T = 1 TO 30: NEXT T 
NEXT I 

GOTO 66d 


Sample Program #20 


1 é 


*¥**WALKING TRIANGLES **¥* 

FOR A = 98 TO @ STEP -4 

Si=A#*9: S$2=191 

A3=A/37.29578 

K1=O8:Yi=i9i 

X2=Sit+Kis Y2=¥1 

X3=X14+S2*C05(A3) sY3=Yi1-S2*SIN(A3) 
GOSUB i1990@ 

NEXT A 


237 


238 


99 


GOTO 99 

@@ PMODE 411 

@5 PCLS 

10 SCREEN 1:90 

20 LINE (X1+¥1)-(X2sY2) »PSET 
30 LINE -(X3+3) +PSET 

4@ LINE -(Xi+s¥1) +PSET 

6% RETURN 


Sample Program #21 


1 


‘***% COUNTING *#*% 


CLS 

CLEAR 1900 

PRINT "WHERE DO YOU WANT TO START 
COUNTING?" 

INPUT AS 

P=LEN(A$) 

PRINT:PRINT A% 
C=VAL(MIDS$(AG$+P+1))+1 

MS$=A$: MRS=RIGHTS(STRS$(C) +1): PS=P: 
GOSUB 200: AS=MS$ 

IF C£1@ THEN 48 

P=P-1 


100 IF P=@ THEN IF LEN(A%)=255 THEN PRINT 


"OVERFLOW": END: ELSE AS$="1"+A%$: GOTO 40 
® GOTO GO 
@ LS=LEN(MS$) 
@ IF LS* > LEN(MR#)+LS-1 OR PS*i THEN STOP 
@ MSS=LEFT#(MS$+PS-1)+MR$+RIGHTS (MS$+LS- 
PS) 


230 RETURN 


Inventory Shopping List 


3S CLEAR 2000: DIM S#(100) 


REM INYVENTORY/SHOPPING LIST 

CLS 

PRINT @ 71+ "DO YOU WANT TO--" 

PRINT @ 134+ "(1) INPUT ITEMS" 

PRINT @ 16G+ "(2) REPLACE ITEMS" 
PRINT @ 198,» "(3) ADD TO THE LIST" 
PRINT @ 230, "(4) DELETE ITEMS" 
PRINT @ 262% "(3) PRINT ALL ITEMS" 
PRINT @ 294, "(6) SAVE ITEMS ON TAPE" 


100 PRINT @ 326, "(7) LOAD ITEMS FROM TAPE" 
11@ PRINT @ 395» "(1-7)"5 

120 INPUT M 

130 IF M< @ ORM > 7 THEN 10 

140 ON M GOSUB 1000, 2000; 1020; 3000; 4000; 


3000, GOOD 
i5@ GOTO 10 
900 REM 
1000 REM INPUT/ADD ITEMS 


: = 1 
CLS: PRINT @ 8+ "INPUT/ADD ITEMS" 
PRINT @ 34+ "PRESS “ENTER? WHEN 


FINISHED" 

PRINT: PRINT "ITEM" Y5 
INPUT S#(Y) 

IF S$(¥Y) = " " THEN RETURN 
YE ee WF 

GOTO i940 

REM 

REM REPLACE ITEMS 

N= @ 


CLS: PRINT @ 9+ “REPLACE ITEMS" 

PRINT @ 34+ "PRESS <ENTER® WHEN 
FINISHED" 

PRINT: INPUT "ITEM NO. TO REPLACE": N 
IF N = @ THEN RETURN 

INPUT "REPLACEMENT ITEM"$ S#(N) 


GOTO 2000 

REM 

REM DELETE ITEMS 
N= @ 


CLS: PRINT @ 9» “DELETE ITEMS” 
PRINT @ 34+ "PRESS “ENTER? WHEN 
FINISHED" 

PRINT: INPUT "ITEM TO DELETE": N 
IF N > Y-1 THEN 3030 

IF N = @ THEN RETURN 


FOR X = N TO Y-2 
S$(K) = S$(X+1) 
NEAT X 

S$(X) =" " 

Y= Y¥-i 

GOTO 3000 

REM 

REM PRINT ITEMS 
FOR X = 1 TO Y-1 STEP 15 
FOR Z = X TO X+14 
PRINT 23 S$(Z) 

NEXT 2 


INPUT "PRESS <ENTER? TO CONTINUE"S C$ 
NEXT X 

RETURN 

REM 

REM SAVE ITEMS ON TAPE 

CLS: PRINT @ 135+ "SAVE ITEMS ON TAPE" 
PRINT @ 234+ "POSITION TAPE" 

PRINT @ 294+ "PRESS PLAY AND RECORD" 
PRINT @ 388+ "PRESS <ENTER? WHEN READY" 
INPUT R& 

OPEN "O"» #-i+s "LIST" 

FOR X = 170 Y-1 

PRINT #-1,1 S$(XK) 


NEXT X 

CLOSE #-i: RETURN 

REM 

REM LOAD ITEMS FROM TAPE 
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Speed Reading 


i@ REM SPEED READING 

2@ CLS: PRINT @ 32, "HOW MANY WORDS PER 
MINUTE" 

3@ INPUT "DO YOU READ"’ WPM 

4@ FOR XK = 170 23 

6@ READ A% : PRINT @ 256, A$ 

70 FOR Y = 1 TO (36@/WPM) * 46@ : NEXT Y 

8@ REM Y LOOP SETS LINES/MIN 


9@ NEXT K : END 

122 DATA SCARLETT OHARA WAS NOT BEAUTIFUL 
112 DATA BUT MEN SELDOM REALIZED IT WHEN 
128 DATA CAUGHT BY HER OWN CHARM AS THE 
13@ DATA TARLETON TWINS WERE. IN HER FACE 
149 DATA WERE TOO SHARPLY BLENDED 

150 DATA THE DELICATE FEATURES OF HER 

16% DATA "MOTHER:+ A COAST ARISTOCRAT OF" 
170 DATA "FRENCH DESCENT» AND THE HEAVY" 
18@ DATA ONES OF HER FLORID IRISH FATHER 
19% DATA "BUT IT WAS AN ARRESTING FACE +" 
200 DATA "POINTED OF CHIN+s SQUARE OF JAW" 
210 DATA HER EYES WERE PALE GREEN 

220 DATA "WITHOUT A TOUCH OF HAZEL +" 

238 DATA STARRED WITH BRISTLY BLACK 

240 DATA LASHES AND SLIGHTLY TILTED 

250 DATA "THE ENDS: ABOVE THEM: HER THICK" 
268 DATA "BLACK BROWS SLANTED UPWARDS +" 
278 DATA CUTTING A STARTLING OBLIQUE LINE 
288 DATA IN HER MAGNOLIA-WHITE SKIN--THAT 
290 DATA "SKIN SO PRIZED BY SOUTHERN WOMEN" 
300 DATA AND SO CAREFULLY GUARDED WITH 
318 DATA "BONNETS» VEILS» AND MITTENS" 
328 DATA AGAINST HOT GEORGIA SUNS 


Memory Test 


This program uses an array to test both yours and your computer's 
memory: 


3 DIM AC7) 

10 PRINT "MEMORIZE THESE NUMBERS" 
15 PRINT "YOU HAYE 1@ SECONDS" 

20 FOR XK = 1707 

30 ACK) = RND(100) 

4@ PRINT A(X) 

3@ NEXT XK 

6@ FOR K = 1 TO 468 * 18 : NEXT & 


8@ FOR X = 17T07 

94 PRINT "WHAT WAS NUMBER" x 

1@@ INPUT R 

11@ IF A(X) = R THEN PRINT "CORRECT" ELSE 
PRINT "WRONG - IT WAS" ACK) 

120 NEXT X 
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ASCII Character Codes 


These are the ASCII codes for each of the characters on your keyboard. 
The first column is the character; the second is the code in decimal no- 
tation; and the third converts the code to a hexadecimal (16-based 


number). 
CHARACTER DECIMAL HEXADECIMAL 
CODE CODE 

SPACEBAR 32 20 
! Bi 21 
a 34 22 
# 35 23 
$ 36 24 
% 37: 25 
& 38 26 
‘ 39 Det 
( 40 28 
) 41 29 
= 42 2A 
+ 43 2B 
4 44 2C 
. 45 2D 
; 46 2E 
/ 47 IF 
0 48 30 
1 49 31 
2. 50 32 
3 51 33 
4 52 34 
5 53 55 
6 54 36 
7 55 37 
8 56 38 
9 57 39 
: 58 3A 
; 59 3B 
< 60 3E 
= 61 3D 
=> 62 3E 
2 63 3F 
@ 64 40 
A 65 41 
B 66 42 
CG 67 43 
D 68 44 
E 69 45 
F 70 46 
G 71 47 
H 72 48 
| 73 49 
J 74 4A 
K 75 4B 
1. 76 4C 
M 77 4D 
N 78 4E 
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CHARACTER DECIMAL HEXADECIMAL 


CODE CODE 

O 79 4F 

P 80 50 

Q 81 51 

R 82 52 

S 83 53 

qT 84 54 

U 85 55 

V 86 56 

Ww 87 57 

x 88 58 

Y 89 59 

Z 90 5A 

G)* 94 5E 
Cy 10 OA 
(—<)* 8 O8 
a 9 09 

03 03 
CLEAR 12 oc 
13 0D 


*If shifted, the codes for these characters are as follows: is 92 
(hex 5C); is 95 (hex 5F); GD is 91 (hex 5B); is 21 (hex 15); 
and is 93 (hex 5D). 


Lowercase Codes 


These are the ASCII codes for lowercase letters. You can produce these 
characters by pressing the and (@) keys simultaneously to get 
into an upper- lowercase mode. The lowercase letters will appear on 
your screen in reversed colors (green with a black background). 


CHARACTER DECIMAL HEXADECIMAL 
CODE CODE 
a 97 61 
b 98 62 
c 99 63 
d 100 64 
© 101 65 
f 102 66 
g 103 67 
h 104 68 
i 105 69 
j 106 6A 
k 107 6B 
| 108 6C 
m 109 6D 
n 110 6E 
fe) 111 6F 
p TH 70 
q 113 71 


CHARACTER DECIMAL HEXADECIMAL 


CODE CODE 
r 114 72 
S 115 73 
t 116 74 
u Li 75 
Vv 118 76 
w 119 77 
x 120 78 
y 121 79 
Z 122 7A 
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GRAPHICS SCREEN WORKSHEET (128 x 192) 


(EERE ERLE RE REESE AE SAS eA 


z 


t 


* 
° 
” 
° 
on 
- 
° 
» 
o 


fbn Eat ed feed 2 even et dad Gt od 
il el ee a 
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GRAPHICS SCREEN WORKSHEET (256 x 192) 


Hee ee ee SECEEEEEPEPEE BEEBE ECE EE EEE 
2 sD et il 2 a z 
(COE ECE CEE EEE rera aan 
+ a al 
tn 
|e ka a nO PS 7 al a 
i PAdUS ERs STe Reece Tee aeneeEee ee 
at mB tO cee 
Pt Et i GB 
Sl SVE See Peewee S Bee 
+a I li SW aL = ecw EE 
/Saann lea 2 a Bt BV 
a ry Hi el dl EB A 
sc peas Hf i Gt 
a a SESRBEGGREEE Teaser eseeses ERE 
(1 nH ie ia ES I 
a COCCC CBE CEE Err eee 
ac At a al 5 
(2 OB em Se a fet oa 
(a He Bt lai eR es 
{2 PEC EECEDE Er ee 
(7 ee Epes ey Saisie re 
a i BEELER EE ee 
a[ BCE EREEE EEE REET EE 
a( Hi el 0 le] Ea 
37 el a 0 el a ht 
(7 to a St 
(7 Hg GW ts 
a HS US (SIRE ag oN Ee ai TS 
s[ Gt er PTE 
et a 8 OS tl 
3[ Hi a FS ES 25 BES GM 
at PEE EEE CEE EERE RPE ERE E EE 
Es SEE EEE ee 
A Ol dl 
ateetote 1 HB EE 
5 a et a ll el 
isa EOS ew GN AE SE 
1 tO a a el ll a Bt Gt 7 
Ht et tl a al rt 0 al lB UEIES ie awe I 
i ot ON tO a Fe le 2 
ECE ECACC EEE Eee fees 
ol Ee at ls GE 
tt Gf 08) 5 GW al 3 Se BL EE 
FES ECE CECE ee 
ft a tH a We Or Bl lB 
tl ls ml 
el a a Ele gE OU EBSA 
Fs 6 mt 9! a BS 
= al lel eS St Te 
ol te BS 
BEER EEC COE CS 
$5 a lS a A El lt 8 
3 5 2 A eat UE a 


SsBSEtEReReReESTssessseseEeEs SE 


GRAPHICS SCREEN WORKSHEET (128 x 96) 
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SET/RESET WORKSHEET (64 x 32) 
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PRINT @ WORKSHEET (32 x 16) 


i: 0 


I 


S$ tb € @ 


ie a el Se ee 
—— ee es ee ee es se a 
a Sa ee ee ee 
Ee eee etl ell ee 
ae Sa A a ee 
Ce Se a a ee ee 
el ee ee ee ee ee ee ee 
ae Se a en ee ee ee ee ee ee 
i aa a a a sa a a 
CP a ie eae ae | es et ee ee ee 
oe (a ee ee ee 
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Extended Color BASIC Colors 


Here are the codes for the nine colors you can create on your 
computer: 


Black 
Green 
Yellow 
Blue 


Red 

Buff 
Cyan 
Magenta 
Orange 


ONDUWAWNH— OO 


The color may vary in shade from these, depending on your TV. Color 0 
(black) is actually an absence of color. 


COLOR-SET 


reas Two-Color Four-Color 
Set | Combination Combination 
4 ) Black/Green 


Black/Buff ee 


— Green/Yellow/Blue/Red 

— Buff/Cyan/Magenta/Orange 
Black/Green ee 
Black/Buff es 


— Green/Yellow/Blue/Red 
— Buff/Cyan/Magenta/Orange 


Black/Green 
Black/Buff 


ao a6 avg qexne. <3 


| 
2 
3 
4 
5 
6 
4 
8 
9 
10 
11 
12 


Note: PLAY does not recognize the notation B# or C—. Use the num- 
bers 1 and 12 respectively or substitute C for B# and B for C—. A 2?FC 
Error occurs if you try to use either of these notations. 
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Extended Color Basic 
Error Messages 


Abbreviation 
/0 


AO 


BS 


CN 


DD 


DN 


DS 


FC 


FD 


FM 


Explanation 


Division by Zero. It’s impossible to divide 
by zero, even for computers. 


Attempt to Open a file that is already open. 
If you press RESET during cassette I/O, 
you'll get this message. Turn the computer 
off and on again. 


Bad Subscript. The subscripts in an array 
are out of range. For example, if you have 
A(12) in your program without a preceding 
DIM line that dimensions array A for 12 or 
more elements, you'll get this error. Use 
DIM to dimension the array. 


Can’t Continue. If you use the CONT com- 
mand and you’re at the END of program or 
in other non-continue situations, you'll get 
this error. 


Attempt to Redimension an Array. You can 
dimenension an array only once. For exam- 
ple, you can’t have DIM A(12) and DIM 
A(50) in the same program. 


Device Number Error. You may use only 
three device numbers with OPEN, CLOSE, 
PRINT, or INPUT—O, -1, or -2. If you use 
another number, you'll get this error. 


Direct Statement. The data file contains a 
direct statement. This error can be caused 
by attempting to CLOAD a data file. 


legal Function Call. This error occurs 
when you use a parameter (number or vari- 
able) with a BASIC word that is out of 


range. For example, PLAY’’:’’ causes this 
error. 


Bad File Data. This error occurs when you 
PRINT data to a file or INPUT data from the 
file, using the wrong type of variable for the 
corresponding data. For example, INPUT 
#-1,A, when the data in the file is a string, 
causes this error. 


Bad File Mode. This error occurs when you 
try to INPUT data from a file OPEN for 
OUTPUT(O), or PRINT data into a file 
OPEN for INPUT(I). 


Abbreviation 


ID 


LS 


NF 


NO 


OD 


OM 


Os 


™ 


UL 


Explanation 


Illegal Direct Statement. For example, you 
can use INPUT only as a line in the pro- 
gram, not as a command line. 


Input past End of file. Use EOF to check to 
see when you've reached the end of the file. 
When you have, CLOSE the file. 


Input/Output Error. This error is often 
caused by trying to input a program or data 
file from a bad tape. 


String too long. A string may contain only 
255 characters. 


NEXT without FOR. NEXT is being used 
without a FOR statement. This error also oc- 
curs when you have the NEXT lines re- 
versed in a nested loop. 


File Not Open. You can’t input or output 
data to a file until you have OPENed it. 


Out of Data. A READ was executed with 
insufficient DATA for it to READ. A DATA 
statement may have been left out of the 
program. 


Out of Memory. All available memory has 
been used or reserved. 


Out of String Space. There is not enough 
space in memory to do your string opera- 
tions. You may be able to CLEAR more 
space. 


Overflow. The number is too large for the 
computer to handle. (ABS(X)>1E38) 


RETURN without GOSUB. A RETURN line 
was encountered without a prior GOSUB. 


Syntax Error. This could result from a mis- 
spelled command, incorrect punctuation, 
open parentheses, or an illegal character. 
Retype the program line or command. 


String formula too complex. A string opera- 
tion was too complex to handle. Break it 
into shorter steps. 


Type Mismatch. This occurs when you try 
to assign numeric data to a string variable 
(A$ =3) or string data to a numeric variable 
(A=“‘DATA”’). 


Undefined Line. The program contains a 
GOTO, GOSUB, or other branching line 
that asks the computer to go to a nonexist- 
ing line number. 
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7SZ 


> 
> 
wo 
wo ° 
Oo 
> o 
° > 
FEPOLS 
QGQSss 
OSD Oe) Oth 
Ows 
toueub wou 
bBEBOHNM 
OB BrODD 
See 
Ss 
a © O 
Leeks! 
250 
ome) 
OD 
oe 
>aQ 
eo 
o> 
= 


av 


| Quantity = Standard Formulas BASIC Statement 


Total Degrees of a Triangle 180° = A+B+C TTL = AA+AB+AC 


A = 180—(B+C) AA = 180—(AB + AC) [then convert AA, AB and 
Cae AC to radians] 
a® sinB-sinC 


DSi ak AREA = SA@2+SIN(AB)*SIN(AC)/(2*SIN(AA)) 
s = 'h(at+b+c) 
Area = Vs(s—a)(s—b)(s—c) 


a sinA _ sinA 
sinB 


Solve for Area 
Given Side a, Angles B 
and C 


Area = 


Given Sides a, b andc S = (SA+SB+SC)/2 
AREA = SQR(S*(S — SA)*(S— SB)*(S — SC)) 


SA = (SIN(AA)/SIN(AB))*SB 


Law of Sines 


ora 
b sinB 

a’? = b®+c°—2bc-cos Aor 
a= Vb*+c*®—2bc-cos A 


a-c _ tan'%(A-C) = 
atc tan %(A+C) 


Law of Cosines SA = SQR(SBa2—SCa2-2+SB*SC*COS(AA)) 


Law of Tangents REM Y = TAN((AA—AC)/2) 


Y = (SA—SC)i(SA + SC)*TAN((AA + AC)/2) 


a-c 
tan %2(A—C) = -tan %(A+C) 
a+c 


Given Three Sides, 
Solve for an Angle 


Ss = '‘A(a+b+c) 


r= /(s—a)(s—b)(s—c) 


Ss 


S = (SA+SB+SC)/2 
R = SQR((S— SA)+(S — SB)*(S — SC)/S) 


A = 2arctan( — ) AA = 2*ATN(RI(S—SA)) 


Quadratic 
Equations 


ax*?+bx+c = 0 


—b+ Vb*?—4ac 


REM AtXa2+B+X+C = 0 

Z = Bo2=4AsC 

X1 = (-B+SQA(Z))JI(2*A) ‘IF Z> = 0 
X2 = (-B-SQA(Z))(2*A) "IF Z> = 0 


Z=(Aax)aY orZ = Aa(xY) 


Algebraic 
Equations 


Z = Aa(-X) or Z = 1/(AaX) 


log x” = y-log x 


Z = LOG(XeY) 
Z = LOG(X+Y) 


or Z = Y¥+LOG(X) 
or Z = LOG(X)+LOG(Y) 


log xy = log x+log y 


log " = log x—log y Z=LOG(X/Y) or Z = LOG(X)-LOG(Y) 


*** ¥OOg ay} Ul OM] 
Y}AOMA S] puepY Ul eINWA0G 
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Function Expressed in Terms of Extended Color Basic Functions. 
x is in radians. 


SEC(X) = 1/COS(X) 

CSC(X) = 1/SIN(X) 

COT(X) = 1/TAN(X) 

ARCSIN(X) = ATN(X/SQR(—X*X + 1)) 

ARCCOS(X) = —ATN(X/SQR(—X*X + 1)) + 1.5708 
ARCSEC(X) = ATN(SQR(X*X — 1)) + (SGN(X) — 1)*1.5708 
ARCCSC(X) = ATN(1/SQR(X*X — 1)) + (SGN(X) — 1)"1.5708 
ARCCOT(X) = —ATN(X) + 1.5708 

SINH(x) = (EXP(X) — EXP(—X))/2 

COSH(X) = (EXP(X) + EXP(-—X))/2 


TANH(X) = —EXP(—X)/(EXP(X) + EXP(—X))"2+1 
SECH(X) = 2/(EXP(X) + EXP(—X)) 

CSCH(X) = 2(EXP(X) — EXP(-X)) 

COTH(X) = EXP(—X)/(EXP(X) -EXP(—X))*2+1 
ARGSINH(X) = LOG(X + SQR(X*X + 1)) 
ARGCOSH(X) = LOG(X + SQR(X*X — 1) 


suolOUNY PadAlaq 


ARGTANH(X) = LOG((1+X)/(1 —X))/2 
ARGSECH(X) = LOG((SQR(— X*X + 1) + 1)/X) 


ARGCSCH(X) = LOG((SGN(X)*SQR(X*X + 1) + 1)/X) 


ARGCOTH(X) = LOG((X + 1)/(X— 1))/2 


Valid Input Ranges 


Inverse Sine 
Inverse Cosine 
Inverse Secant 
Inverse Cosecant 


Inverse Hyper. Cosine 
Inverse Hyper. Tangent 
Inverse Hyper. Secant 
Inverse Hyper. Cosecant 
Inverse Hyper. Cotangent 


Certain special values are mathematically undefined, but our functions 
may provide invalid values: 


TAN and SEC of 90 and 270 degrees 
COT and SCS of 0 and 180 degrees 


For example, TAN(1.5708) returns a value but TAN(90*.01745329) re- 
turns a DIVISION BY ZERO error. 90*.01745329 = 1.5708 


Other values that are not available from these functions are: 


ARCSIN(-1) = -PI/2 
ARCSIN( 1) = PI/2 
ARCCOS(-1) = Pl 
ARCCOS( 1) = 0 
ARCSEC(-1) = -PI 
ARCSEC(1 = O 
ARCCSC(-1) = -PI/2 
ARCCSC( 1) = PI/2 


Please note that the above information may not be exhaustive. 


Decimal Address ss Contents sid Hex Address 


0-1023 System Use 0-3FF 
255 Direct Page RAM OFF 
1023 Extended Page RAM 3FF 


1024-1535 Text Screen Memory 400-5FF 


Graphic Screen Memory 


1536-3071 Page 1 600-BFF 
3072-4607 Page 2 CO00-11FF 
4608-6143 Page 3 1200-17FF 
6144-7679 Page 4 1800-1DFF 
7680-9215 Page 5 1E00-23FF 
9216-2559 Page 6 2400-9FF 
2560-12287 Page 7 2A00-2FFF 
12288-13823 Page 8 3000-35FF 
Program and Variable 
13824-16383 Storage 3600-3FFF 
32768-40959 Extended Color BASIC 8000-9FFF 
40960-49151 Color BASIC A000-BFFF 
49152-65279 Cartridge Memory C000-FEFF 
65280-65535 Input/Output FFOO-FFFF 


254 


Color Computer Line 
Printer Variables 


Variable Address Address Dec 


LPTBTD Baud 


0 


153 
154 112 


156 | oo | oo | 


Your computer's software uses the following initial conditions: 


The baud rate is 600 

The printer width is 132 columns 

The printer generates a busy output when not ready 

The printer automatically executes a carriage return at 132 
columns. 


The RS-232 Interface uses a four-pin DIN connector. A diagram of the 
Pin out is shown in your introduction manual. 


Pin 4 is the computer output to the printer. Pin 3 is ground. Pin 1 is not 
used for a printer. Pin 2 should be connected to the busy output (or sta- 
tus line) of the printer. If your printer does not provide a status indica- 
tion, then this line must be connected to a positive voltage of greater 
than 3 volts. This tells the computer that the printer is ready at all times. 
In addition, the line delay variable should be set to the proper value. 


The following list of alternate values for the line printer variables is pro- 
vided as an aid in interfacing nonstandard printers. 


Baud Rate (msb,Isb) Hexadecimal Value 


120 baud 458 (1 and 202) 


300 baud 180 
600 baud 87 
1200 baud 41 
2400 baud 18 


255 


256 


Line Delay Decimal Value (‘7’) Hexadecimal Value 
(seconds) 


288 64 and 0 4000 
576 128 and O 8000 
LS 255 and 255 FFFF 


Line Width Decimal Value (“/’) Hexadecimal Value 
(characters/line) 
16 16 10 


32 
64 
255 


The last comma field variable should be set to the width value—the 
comma field width. (The comma field width normally stays at 16.) 


In Color BASIC Version 1.0, the output format to the printer is 1 start 
bit, 7 data bits (LSB first), and 2 stop bits with no parity. 


ROM Routines 


The Color BASIC ROM contains many subroutines that can be called by 
a machine-language program. Each SubrgEnn: will be described in the 
following format: 


NAME — Entry address 
Operation Performed 
Entry Condition 

Exit Condition 


Note: The subroutine NAME is only for reference. It is not 
recognized by the Color Computer. The entry address is 
given in hexadecimal torm; you must use an indirect jump to 
this address. Entry and Exit Conditions are given for ma- 
chine-language programs. 


BLKIN = [A006] 
Reads a Block from Cassette 


Entry Conditions 
Cassette must be on and in bit sync (see CSRDON). CBUFAD contains 
the buffer address. 


Exit Conditions 
BLKTYP which is located at 7C, contains the block type: 


0 = File Header 

1 = Data 

FF = End of File 
BLKLEN, located at 7D, contains the number of data bytes in the block 
(0-255). 


Z* = 1,A = CSRERR = 0 (if no errors). 
Z =0,A = CSRERR = 1 (if a checksum error occurs). 
Z =0,A = CSRERR = 2 (if a memory error occurs). 


Note: CSRERR = 81 
Unless a memory error occurs, X = CBUFAD + BLKEN. If a memory 
error occurs, X points to beyond the bad address. Interrupts are masked. 
U and Y are preserved, all other modified. 


*7Z is a flag in the Condition Code (CC) register. 


BLKOUT = {A008] 
Writes a Block to Cassette 


Entry Conditions 

The tape should be up to speed and a leader of hex 55s should have 
been written if this is the first block to be written after a motor-on. 
CBUFAD, located at 7E, contains the buffer address. 

BLKTYP located at 7C, contains the block type. 

BLKLEN, located at 7D, contains the number of data bytes. 


Exit Conditions 

Interrupts are masked. 

X = CBUFAD + BLKLEN. 

All registers are modified. 

WRTLDR = [A00C] 

Turns the Cassette On and Writes a Leader 


Entry Conditions 
None 


hN 


“I 


Exit Conditions 
None 


CHROUT = [A002] 
Outputs a Character to Device 


CHROUT outputs a character to the device specified by the contents of 
6F (DEVNUM). 

DEVNUM = —2 (printer) 

DEVNUM = 0 (screen) 


Entry Conditions 
On entry, the character to be output is in A. 


Exit Conditions 
All registers except CC are preserved. 


CSRDON = [A004] 
Starts Cassette 


CSRDON starts the cassette and gets into bit sync for reading. 


Entry Conditions 
None 


Exit Conditions 
FIRQ and IRO are masked. U and Y are preserved. All others are 
modified. 


GIVABF =[B4F4] 
Passes parameter to BASIC 


Entry Conditions 
D = parameter 


Exit Conditions 
USR variable = parameter 


INTCNV = [B3ED] 
Passes parameter from BASIC 


Entry Conditions 
USR argument = parameter 


Exit Conditions 
D = parameter 


JOYIN = [AOOA] 
Samples Joystick Pots 


JOYIN samples all four joystick pots and stores their values in POTVAL 
through POTVAL + 3. 


Left Joystick 
Up/Down 15A 
Right/Left 15B 

Right Joystick 
Up/Down 15C 
Right/Left 15D 


For Up/Down, the minimum value = UP. 
For Right/Left, the minimum value = LEFT. 


Entry Conditions 
None 


Exit Conditions 
Y is preserved. All others are modified. 


POLCAT = [A000] 
Polls Keyboard for a Character 


Entry Conditions 
None 


Exit Conditions 
Z = 1, A = 0 (if no key seen). 
= 0, A = key code, (if key is seen). 


Z 
B and X are preserved. All others are modified. 
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BASIC SUMMARY 


STATEMENTS 


BASIC statements are commands that tell your computer to do some ac- 
tion, such as drawing a circle on the screen. Use BASIC statements as 
lines in your program. 


AUDIO Connects or disconnects cassette output to TV speaker. 


CIRCLE (x,y),nc,hw,startend Draws a circle with center at point (x,y), 
radius r, specified color c, height/width ratio (hw) of 0-4. Circle 
can start and end at specified point (0-1). 


CLEAR n,h_ Reserves rn bytes of string storage space. Erases variables. h 
specifies highest BASIC address. 


CLOAD Loads specified program file from cassette. If filename is not 
specified, first file encountered is loaded. Filename can be a maxi- 
mum of 8 characters. 


CLOADM Loads machine-language program cassette. You may specify 
an offset address to add to the loading address. 


CLOSE#DEV Closes access to specified file. If you do not specify de- 
vice, all open files are closed. , 


CLS c Clears display to specified color c. If you do not specify color, 
green is used. 


COLOR (foreground,background) Sets foreground and background 
color. 


CONT Continues program execution after you have pressed (BREA 
or used the STOP statement. 


CSAVE Saves program on cassette (program name can be 8 characters 
or fewer). If you specify A, program is saved in ASCII format. 


CSAVEM name, start, end, transfer Saves a machine-language file on 
cassette. 


DATE Stores data in your program. Use READ to assign data to 
variables. 


DEF FN Defines numeric function. 

DEFUSR n_ Defines entry point for USR function n.n=0-9. 
DEL Deletes program lines. 

DIM_ Dimensions one or more arrays. 


DRAW Draws a line beginning at specified starting point of specified 
length of specified color. Also draws to scale, draws blank lines, 
draws nonupdated lines, and executes substrings. If you do not 
specify starting point, last DRAW position or (128,96) is used. 


EDIT Lets you edit a program line. 


END Ends program. 


EXEC (address) Transfers control to machine-language programs at 
specified address. If you omit address, control is transferred to ad- 
dress set in last CLOADM. 


FOR... TO STEP/NEXT Creates a loop in program that the computer 
must repeat from the first number to the last number you specify. 
Use STEP to specify how much to increment the number each 
time through the loop. If you omit STEP the computer uses 1. 


GET (start)-(end),destination,G Reads the graphic contents of a rectan- 
gle into an array for future use by PUT. 


GOSUB Calls a subroutine beginning at specified line number. 
GOTO Jumps to specified line number. 


IF test THEN ...action 7 ELSE, action 2 Performs a test. If it is 
true, the computer executes action]. If false, the computer exe- 
cutes action 2. 


INPUT Causes the computer to stop and await input from the 
keyboard. 


INPUT#-1 Input data from cassette. 


INSTR (position, search, target) Searches for the first occurrence of 
target string in search string beginning at position. Returns the po- 
sition at which the match is found. 


LET Assigns value to variable (optional). 
LIST Lists (displays) specified line(s) or entire program on screen. 
LLIST Lists specified program line(s) or entire program to printer. 


LINE (x1,y1)-(x2,y2), PSET or PRESET,BF Draws a line from (x/,y/) to 
(x2,y2). If you omit (x1,y1), the last end point or (128,96) is used. 
PSET selects foreground color, and PRESET selects background 
color. B draws a box with (x1,y1) and (x2,y2) as the opposing cor- 
ners. BF fills in the box with foreground color. 


LINE INPUT Inputs line form keyboard. 


MID$ (oldstr, position, length) Replaces a portion of oldstr with an- 
other string. 


MOTOR Turns cassette ON or OFF. 

NEW Erases everything in memory. 

ON...GOSUB Multiway branch to call specified subroutines. 
ON ... GOTO Multiway branch to specified lines. 


OPEN m,#dev,f Opens specified file (f) for data transmission (m) to 
specified device (dev). m may be | (Input) or O (Output). dev may 
be #0 (screen or keyboard), #-1 (cassette), or #-2 (printer). 


PAINT (x,y),c,b Paints graphic screen starting at point (x,y) with speci- 
fied color (c) and stopping at border (b) of specified color. 


PCLEAR n_ Reserves n number of 1.5 K graphics memory pages. 


PCLS c Clears screen with specified color (c). If you omit color code, 
current background color is used. 
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PCOPY Copy graphics trom source page to destination page 


PLAY Plays music of specified note (A-G or 1-12), octave (O), volume 
(V), note-length (L), tempo(T), pause (P), and allows execution of 
substrings. Also sharps (# or +) and flats (-). 


PMODE mode, start-page Selects resolution and first memory page. 


POKE (location, value) Puts value (0-255) into specified memory 
location. 


PRESET Resets a point to background color. 

PRINT Prints (displays) specified message or number on TV screen. 
PRINT #-1 Writes data to cassette. 

PRINT #-2 Prints an item or list of items on the printer. 

PRINT TAB Moves the cursor to specified column position. 

PRINT USING Prints numbers in specified format. 


PRINT @ scr pos Prints specified message at specified text screen 
position. 


PSET (x,y,c) Sets a specified point (x,y) to specified color (c). If you 
omit c, foreground is used. 


PUT (start)-(end), source, action Stores graphics from source onto 
starVend rectangle on the screen. (Array rectangle size must match 
GET rectangle size.) 


READ Reads the next item in DATA line and assigns it to specified 
variable. 


REM _ Lets you insert comment in program line. The computer ignores 
everything after REM. 


RENUM newline, startline, increment Lets you renumber program 
lines. 


RESET (x,y) Resets a point. 


RESTORE Sets the computer’s pointer back to first item on the first 
DATA line. 


RETURN Returns the computer from subroutine to the BASIC word fol- 
lowing GOSUB. 


RUN Executes a program. 


SCREEN screen-type, color-set Selects either graphics (1) or text (0) 
screen and color-set (0 or 1). 


SET (x,y,c) Sets a dot at specified text screen position to specified 
color. 


SKIPF Skips to next program on cassette tape or to end of specified 
program. : 


SOUND fone, duration Sounds specified tone for specified duration. 
STOP Stops execution of a program. 
TROFF Turns off program tracer. 


TRON Turns on program tracer. 


FUNCTIONS 


BASIC functions are built-in subroutines that perform some kind of com- 
putation on data, such as computing the square root of a number. Use 
BASIC functions as data within your program lines. 


ABS (numeric) Computes absolute value. 

ASC (str) Returns ASCII code of first character of specified string. 
ATN (numeric) Returns arctangent in radians. 

CHR$ (code) Returns character for ASCII, control, or graphics code. 
COS (numeric) Returns cosine of an angle given in radians. 


EOF (dev) Returns FALSE = 0 if there is more data; TRUE = —1 if 
end of file has been read. 


EXP (numeric) Returns natural exponential of number (e number). 

HEX$ (numeric) Computes hexadecimal value. PRINT HEX$ (30) 

INKEY$ Checks the keyboard and returns the key being pressed (if 
any). 

INT (numeric) Converts a number to an integer. 

JOYSTK (j) Returns the horizontal or vertical coordinate (j) of the left 

or right joystick: 

0 horizontal, left joystick 

vertical, left joystick 


horizontal, right joystick 
vertical, right joystick 


1 
2 
3 


LEN (str) Returns the length of a string. 


LOG (numeric) Returns natural logarithm. 


MEM Finds the amount of free memory. 


MID$ (strpos,length) Returns a substring of another string starting at 
pos. lf you omit length, the entire string right of position is returned. 


PEEK (mem foc) Returns the contents of specified memory location. 


POINT (x,y) Tests whether specified graphics cell is on or off. x (hori- 
zontal) =0-—63; y (vertical) =0-—31. The value returned is —1 if the 
cell is in a text character mode; 0 if it is off, or the color code if it is 
on. See CLS for color codes. 


POS (dev) Returns current print position. 


PPOINT (x,y) Tests whether specified graphics cell is on or off and re- 
turns color code of specified cell. 


RIGHTS (strfength) Returns right portion of string. 


RND (n) Generates a ‘‘random’”’ number between 1 and n if n > 1, or 
between 0 and 1 if n = O. 


SGN (numeric) Returns sign of specified numeric expression: 
—1=negative; O=0; 1 =positive. 


SIN (numeric) Returns sine of angle given in radians. 
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STRING$ (length, code, or string) Returns a string of characters (of 
specified length) specified by ASCII code or by the first character of 
the string. 


STR$ (numeric) Converts a numeric expression to a string. 
SQR (numeric) Returns the square root of a number. 

TAN (numeric) Returns tangent of angle given in radians. 
TIMER Returns contents or lets you set timer (0-65535). 
USRn (numeric) Calls your machine-language subroutine. 
MAL (str) Converts a string to a number. 


VARPTR (var) Returns addresses of pointer to the specified variable. 


OPERATORS 


BASIC operators perform some kind of operation on data, such as add- 
ing two numbers. 


(H Exponentiation 

—,+ Unary negative, positive 

*) Multiplication, division 

+,- Addition and concatenation, subtraction 
<,>,=,<=,>=,<> Relational tests 

NOT 

AND 

OR 


INDEX 


$ See STRINGS 

; See print 

, See print 

:, separating BASIC statements 61 
+,addition 15 

+,concatenation 65 
—,subtraction 15 

*, multiplication 15 


/, division 15 
exponentiation 174 
26 

(SHIFTIO) 18, 158 

55 


53 
2/0 ERROR 16 
2LS ERROR 66 
20S ERROR 65 
2SN ERROR 16 
2TM ERROR 20 
ABS 79 
absolute motion 117 
alphabetizing See sorting 
analyzing 162 
AND 
operator 78 
PUT parameter 125 
angle 199 
Answers to Do-It-Yourself Programs 207-25 
arc See CIRCLE 
arctangent See ATN 
arrays 
multidimensional 162 
numeric 150 
string 155 
ASCII character codes 241 
ATN 175 
B See DRAW 
BF See DRAW 
background color 92 
BASIC summary 260-62 
black-on-green 18 
Bull’s Eye, program 108 
Card Dealing, program 153, 166 
change, edit key 54 
CIRCLE 107 
CLEAR 66 
CLOSE 145 
CLS 16 
COLOR 92 
color See also CIRCLE, COLOR, DRAW, PAINT, 
PSET 
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INDEX 


codes 16 
modes 99 
sets 96 
foreground and background 92 
reference 249 
concatenate(+) 65 
constants 195 
CONT 75 
correcting mistakes See errors 
COS 174 
cosine See COS 
Craps, program 46 
Crooked Line, program 93 
current graphics screen 103 
DATA 48 
data 
numeric v string 15, 20-21 
sorting 159 
storing on tape 145 
debugging 193 
DEFFN 193 
DEFUSR 198 
degrees 177 
DEL 57 
delete 
edit key 54 
program line 26, 57 
derived functions 253 
device See OPEN 
DIM 124 
division(/ ) 15 
division error 16 
Do-lt-Yourself Programs 
answers = 207-25 


Bull’s Eye 108 
Card Dealing 153, 166 
Craps 46 


Crooked Line 93 
House 93, 108, 110, 113 
Ice Cube 117 
Inventory Shopping List 238 
Lightning 106 

Mailing List 183 
Memory Test 240 
Rolling Dice 45 
Russian Roulette 44 
Sine Waves 174 
Speed Reading 240 
Star 116 

Triangle 172 

Typing Test 73 


INDEX 


Vocabulary 48 
Voting Tabulation 150 
When Saints Go Marchin’ In 140 
Writing an Essay 156 
Yo-Yo- 104 
DRAW 115 
E notation 79 
EDIT 53 
Ellipse 109 
ELSE 77 
END 40 
EOF 145 
errors 
?/0 ERROR 16 
2LS ERROR 66 
20S ERROR 65 
?SN ERROR 16 
2TM ERROR 20 
correcting a program line 26 
correcting a typographical error 13 
description of all error messages 250-51 
EXP 177 
exponentiation 174 
exponents 79 
extend, edit key 56 
field specifiers See PRINT USING 
FIX 177 
flipping screens 103 
foreground color 92 
FOR... NEXT 30 
formulas, mathematical 252 
functions 
BASIC 263-64 
derived 253 
games 43 
GET 123 
GIVABF, ROM routine 199 
GOSUB_ 60 
graphics 
memory 98, 102 
resolution 99 
screen 103 
Graphics Screen Worksheet 
grid 244-46 
use of 85 
green-on-black 18 
grid, screen See Graphics Screen 
Worksheet, PRINT @ Worksheet, 
SET/RESET Worksheet 
grid size 99 
hack, edit key 55 
height/width ratio See CIRCLE 
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INDEX 


HEX$ 196 
House, program 93, 108, 110, 113 
Ice Cube, program 117 
IF 40 
information See Data 
INKEY$ 71 
INPUT 25 
insert, edit key 55 
INSTR 181 
INT 50 
INTCNV 220 
Inventory Shopping List, program 238 
joysticks 129 
JOYSTK See joysticks 
kill,edit key 56 
LEFT$ 66 
LEN 65 
LET 193 
Lightning, program 106 
LINE 89 
LINE INPUT 186 
line printer variables 255-56 
LIST 24 
list,edit key 53 
LLIST 157 
LOG 176 
logarithm See LOG 
loops 30-39 
lowercase codes 242-43 
machine-language subroutines 197-200 
returning values 201 
stack space, use With USR 202 
Mailing List, program 183 
mathematical for mulas 252 
MEM 76 
memory See also MEM, graphics memory 
description 19 
map 254 
Memory Test, program 240 
MID$_ 67, 183 
mistakes See errors 
modes, DRAW parameter 115 
motion commands, DRAW parameter 115 
multiplication(*) 15 
musical notes See PLAY 
nested loop 37 
NEXT 30 
NOT, PUT parameter 125 
notes, musical 134 
numbers 15 
numeric 
arrays 150 
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INDEX 


data 21 
octave See PLAY 
Odds and Ends 205 
ON GOSUB_ 76 
ON GOTO 77 
OPEN 145 
operators 
+,addition 15 
+, concatenation 65 
—, subtraction 15 
*, multiplication 15 
/, division 15 
CD), exponentiation 174 
AND, logical 78 


OR, logical 78 
options, DRAW parameter 115 
OR 


operator 78 

PUT parameter 125 
pages 

clearing(PCLEAR) 104 
description 102 
copying(PCOPY) 105 
PAINT 112 

parentheses, rules on 63 
pause-length See PLAY 
PCLEAR 104 

PCLS 96 

PCOPY 105 

PEEK 131 

PLAY 133 

PMODE_ 98-106 

POINT 127 

POS 181 

PPOINT 87 

PRESET 87, 91 

PRESET, PUT parameter 125 
print 

display (PRINT) 14 
printer (PRINT #-2) 191 
punctuation, rules on 27 
recorder (PRINT #-1) 145 
PRINT @ 45 

PRINT @ Worksheet 

grid 248 

use of 45 

printer 

line printer variables 255-56 
listing a program (LLIST) 157 
printing data (PRINT #-2) 191 
use of 157 

PRINT USING 187 
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INDEX 


prompt 13 

PSET 85 

PSET, PUT parameter 125 
PSET, LINE parame er 89 
PUT 123 

radians 173 

READ 48 

relative motion 117 
renumber, program lines 57 
RESET 127 

resolution 99 

RESTORE 49 

RETURN 60 

reversed characters 18, 158 
RIGHT$ 66 

RND 43 

Rolling Dice, program 45 
ROM routines 257-59 

RUN 24 

Russian Roulette, program 44 
sample programs 226-38 
scale See PLAY 

scale a display See DRAW 
scientific notation See E notation 
search See EDIT 

SCREEN 95 

screen positions See Graphics Screen 


Worksheet, PRINT @ Worksheet, 
SET/RESET Worksheet 
SET 127 
SET/RESET Worksheet 
grid 247 
use of 128 
SGN 79 
SIN 173 
sine See SIN 
Sine Waves, program 174 
sorting 159 
SOUND 17, 33 
Speed Reading, program 240 
square root See SQR 
SQR 172 
stack space, use W/mach-1 202 
Star, program 116 
start page 103 
STEP 32 
STOP 75 
STR$ 79 
string See also LEFT$, LEN, MID$, RIGHTS 
arrays 155 
data 21 
description 15, 20, 180 
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INDEX 


STRING$ 180 

subscripted variables See arrays 

subroutines See GOSUB, machine- 
language subroutines 

TAN 175 

tangent See TAN 

taping 145 

technical information See machine- 
language subroutines, ROM routines, 
memory map, printer variables 

tempo See PLAY 

THEN 40 

TIMER 194 

tone, SOUND parameter 17 

Triangle, program 172 

trigonometry functions 172 

TROFF 193 

TRON 193 

truncate See FIX 

Typing Test, program 73 


USR 198 
VAL 73 
valid input ranges 254 
variables 
simple 19-22 
subscripted See arrays 
VARPTR 200 


video memory 95 

Vocabulary, program 48 

volume See PLAY 

Voting Tabulation, program 150 

When Saint Go Marchin’ In, program 140 

whole numbers See FIX, INT 

Word Processing, program 157, 182 

worksheets See Graphics Screen 
Worksheet, PRINT @ Worksheet, 
SET/RESET Worksheet 

Writing an Essay, program 156 

Yo-Yo, program 104 
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